X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fearly-type-vops.lisp;h=06d21b386d6b682446fa40c41b19785d70d4b78f;hb=e0697854ef9f4999c8585b64be1b282ce4725176;hp=8b4d96c56ce9136851904a46d45f434cb1104940;hpb=7ce4dc62a7b03590b127bb950738e771e33341a7;p=sbcl.git

diff --git a/src/compiler/generic/early-type-vops.lisp b/src/compiler/generic/early-type-vops.lisp
index 8b4d96c..06d21b3 100644
--- a/src/compiler/generic/early-type-vops.lisp
+++ b/src/compiler/generic/early-type-vops.lisp
@@ -16,7 +16,6 @@
 (defparameter *fun-header-widetags*
   (list funcallable-instance-header-widetag
 	simple-fun-header-widetag
-	closure-fun-header-widetag
 	closure-header-widetag))
 
 (defun canonicalize-headers (headers)
@@ -91,13 +90,9 @@
       (lowtags
        (when (cdr lowtags)
 	 (error "can't test multiple lowtags at the same time"))
-       (if headers
-	   `(%test-lowtag-and-headers
-	     ,value ,target ,not-p ,(car lowtags)
-	     ,function-p ',(canonicalize-headers headers)
-	     ,@other-args)
-	   `(%test-lowtag ,value ,target ,not-p ,(car lowtags)
-	     ,@other-args)))
+       (when headers
+	 (error "can't test non-fixnum lowtags and headers at the same time"))
+       `(%test-lowtag ,value ,target ,not-p ,(car lowtags) ,@other-args))
       (headers
        `(%test-headers ,value ,target ,not-p ,function-p
 	 ',(canonicalize-headers headers)