(part-of list))
(t
(any))))
- (function-type
+ (fun-type
(exactly function))
(sb!xc:class
(if (csubtypep type (specifier-type 'function))
(part-of function)
(part-of instance)))
(ctype
- (any))))))
+ (if (csubtypep type (specifier-type 'function))
+ (part-of function)
+ (any)))))))
(/show0 "primtype.lisp end of file")