Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv27251

Modified Files: compiler.lisp Log Message: Don't break on constant EQL.

--- /project/movitz/cvsroot/movitz/compiler.lisp 2008/04/17 19:09:28 1.203 +++ /project/movitz/cvsroot/movitz/compiler.lisp 2008/04/21 19:45:36 1.204 @@ -8,7 +8,7 @@ ;;;; Created at: Wed Oct 25 12:30:49 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: compiler.lisp,v 1.203 2008/04/17 19:09:28 ffjeld Exp $ +;;;; $Id: compiler.lisp,v 1.204 2008/04/21 19:45:36 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -7248,7 +7248,7 @@ (:boolean-branch-on-false (when (not eql) `((:jmp ',(operands return-mode))))) - (t (break "Constant EQL: ~S ~S" (car x-singleton) (car y-singleton)))))) + (t (warn "Constant EQL: ~S ~S" (car x-singleton) (car y-singleton)))))) ((and x-singleton (eq :untagged-fixnum-ecx y-loc)) (let ((value (etypecase (car x-singleton)