From 910c258268930fd593a2ecf9e00f439a8252715e Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 1 Jun 2005 14:46:24 +0000 Subject: [PATCH] 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). --- src/compiler/srctran.lisp | 4 ++-- version.lisp-expr | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/compiler/srctran.lisp b/src/compiler/srctran.lisp index f137b49..c8a7b20 100644 --- 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 --- 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" -- 1.7.10.4