(!def-primitive-type t (descriptor-reg))
(/show0 "primtype.lisp 20")
-(setf *backend-t-primitive-type* (primitive-type-or-lose 't))
+(setf *backend-t-primitive-type* (primitive-type-or-lose t))
;;; primitive integer types that fit in registers
(/show0 "primtype.lisp 24")
(part-of list))
(t
(any))))
- (function-type
+ (fun-type
(exactly function))
(sb!xc:class
(if (csubtypep type (specifier-type 'function))