From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Fri, 30 Oct 2009 18:22:10 +0000 (+0000)
Subject: 1.0.32.7: fix open-coding of EQL in the cross-compiler
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=e3715b2ee7f3eb579a9452eadc49746e8c52c0b6;p=sbcl.git

1.0.32.7: fix open-coding of EQL in the cross-compiler

EQ-COMPARABLE-TYPE wasn't being defined properly, so things like
(EQL FOO :KEYWORD) were going through GENERIC-EQL.

Thanks to Christophe for pointing out the fix.
---

diff --git a/src/compiler/seqtran.lisp b/src/compiler/seqtran.lisp
index 9440650..a4717f4 100644
--- a/src/compiler/seqtran.lisp
+++ b/src/compiler/seqtran.lisp
@@ -291,7 +291,7 @@
              (or end length)
              (sequence-bounding-indices-bad-error vector start end)))))
 
-(deftype eq-comparable-type ()
+(def!type eq-comparable-type ()
   '(or fixnum (not number)))
 
 ;;; True if EQL comparisons involving type can be simplified to EQ.
diff --git a/version.lisp-expr b/version.lisp-expr
index 6752b04..64a8f35 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.32.6"
+"1.0.32.7"