X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fearly-type-vops.lisp;h=fff676804bae3288be196266cd1063348b0fb63a;hb=5c139b13882a2632a27a7f8fd81c8f1ab62b10a0;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..fff6768 100644
--- a/src/compiler/generic/early-type-vops.lisp
+++ b/src/compiler/generic/early-type-vops.lisp
@@ -91,13 +91,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)