- ;; MNA: cons compound-type patch
- ;; FIXIT: all commented out
-; (cons-type
-; (and (consp object)
-; (%%typep (car object) (cons-type-car-type type))
-; (%%typep (cdr object) (cons-type-cdr-type type))))
+ (cons-type
+ (and (consp object)
+ (%%typep (car object) (cons-type-car-type type))
+ (%%typep (cdr object) (cons-type-cdr-type type))))