[Sbcl-commits] CVS: sbcl/src/compiler srctran.lisp,1.121,1.122

[Nathan F. <nf...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29682/src/compiler

Modified Files:
	srctran.lisp 
Log Message:
0.9.1.20:
	Fix typo in LOGAND-DERIVE-UNSIGNED-HIGH-BOUND (thanks to jsnell
	  for testing and rtoy for his CMUCL work on the same).

	(Since CMUCL has essentially the same code, a future commit
	 will add similar derivers for LOGXOR.  A more idiomatic CL
	 style will also be adopted.)


Index: srctran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/srctran.lisp,v
retrieving revision 1.121
retrieving revision 1.122
diff -u -d -r1.121 -r1.122
--- srctran.lisp	1 Jun 2005 14:46:24 -0000	1.121
+++ srctran.lisp	1 Jun 2005 22:31:35 -0000	1.122
@@ -2177,7 +2177,7 @@
             ((not (zerop (logand (logand (lognot b) mask)
                                  d
                                  m)))
-             (let ((temp (logior (logand d (lognot b) mask)
+             (let ((temp (logior (logand d (lognot m) mask)
                                  (- m 1))))
                (when (>= temp c)
                  (setf d temp)