X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fbignum.lisp;h=901cf04f358425f55b654ccc2f42818db3946885;hb=cf0b72cd4052a09b9a305081524bd44e2948c1e5;hp=819ef3a62864bf2025af09d1d60687d6074b330d;hpb=ef662d47d2233111ed02c3890119fd1839139ca6;p=sbcl.git

diff --git a/src/code/bignum.lisp b/src/code/bignum.lisp
index 819ef3a..901cf04 100644
--- a/src/code/bignum.lisp
+++ b/src/code/bignum.lisp
@@ -1929,6 +1929,6 @@
       (let ((xi (%bignum-ref x i)))
         (mixf result
               (logand most-positive-fixnum
-                      xi
-                      (ash xi -7)))))
+                      (logxor xi
+                              (ash xi -7))))))
     result))