Optimize the compiler a bit.

[sbcl.git] / src / code / early-type.lisp

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 20f1642..c5cacb3 100644 (file)
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -151,7 +151,9 @@
                                          (if rest
                                              (type-hash-value rest)
                                              42)
-                                         (sxhash allowp))
+                                         (if allowp
+                                             #.(logand #xFF (sxhash t))
+                                             #.(logand #xFF (sxhash nil))))
                                         #xFF)))
     ((required equal-but-no-car-recursion)
      (optional equal-but-no-car-recursion)