X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-type.lisp;h=4bb7c97d61cf53d3221cc9ffbef12589c94bf237;hb=814fc23f60ba84318a3dfea112e6d98fd0293835;hp=0af428157eacbfe6d067541c25d03492e2381b45;hpb=8d404ad80075771ffb783fda8a7328982a67f820;p=sbcl.git

diff --git a/src/code/early-type.lisp b/src/code/early-type.lisp
index 0af4281..4bb7c97 100644
--- a/src/code/early-type.lisp
+++ b/src/code/early-type.lisp
@@ -314,7 +314,7 @@
                                 (logand (sxhash x) #x3FF))
 	       :hash-bits 10
 	       :init-wrapper !cold-init-forms)
-	      ((orig equal))
+	      ((orig equal-but-no-car-recursion))
   (let ((u (uncross orig)))
     (or (info :type :builtin u)
 	(let ((spec (type-expand u)))