add predicate record? to (picrin record), and fix bug of record-type predicate