X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fearly-type-vops.lisp;h=8c854fb09547708f4be2a0b2e8dd799e2684c11d;hb=77d94d36bcfd3d5eea73ad51e6ee621a8938f995;hp=fff676804bae3288be196266cd1063348b0fb63a;hpb=a5b84ffa6a4599b958f4c856c39e55712ccb8cc2;p=sbcl.git

diff --git a/src/compiler/generic/early-type-vops.lisp b/src/compiler/generic/early-type-vops.lisp
index fff6768..8c854fb 100644
--- a/src/compiler/generic/early-type-vops.lisp
+++ b/src/compiler/generic/early-type-vops.lisp
@@ -11,12 +11,11 @@
 (in-package "SB!VM")
 
 (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
 	simple-fun-header-widetag
-	closure-fun-header-widetag
 	closure-header-widetag))
 
 (defun canonicalize-headers (headers)
@@ -58,7 +57,7 @@
 			 (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."))