0.9.1.18:

	Fix for the modular arithmetic improvement from nfroyd
	... lognot is unary :-)
	... (I don't have _Hacker's Delight_, so I guessed what was
		meant).

diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp
index f137b49..c8a7b20 100644 (file)
--- a/src/compiler/srctran.lisp
+++ b/src/compiler/srctran.lisp
@@ -2233,7 +2233,7 @@
     (loop for m = (ash 1 (1- length)) then (ash m -1)
           until (zerop m) do
           (cond
-            ((not (zerop (logand (logand (lognot a mask))
+            ((not (zerop (logand (logand (lognot a) mask)
                                  c
                                  m)))
              (let ((temp (logand (logior a m) (logand (- m) mask))))
@@ -2241,7 +2241,7 @@
                  (setf a temp)
                  (loop-finish))))
             ((not (zerop (logand a
-                                 (logand (lognot c mask))
+                                 (logand (lognot c) mask)
                                  m)))
              (let ((temp (logand (logior c m) (logand (- m) mask))))
                (when (<= temp d)

diff --git a/version.lisp-expr b/version.lisp-expr
index e14c141..6e2ba58 100644 (file)
--- 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".)
-"0.9.1.17"
+"0.9.1.18"