(in-package "SB!VM")
\f
(defparameter *immediate-types*
- (list unbound-marker-widetag base-char-widetag))
+ (list unbound-marker-widetag character-widetag))
(defparameter *fun-header-widetags*
(list funcallable-instance-header-widetag
(if (subsetp headers *fun-header-widetags*)
t
(error "can't test for mix of function subtypes ~
- and normal header types"))
+ and normal header types"))
nil)))
(unless type-codes
(error "At least one type must be supplied for TEST-TYPE."))