Fixed bug in bignum-shift-right! (#801).

larcenists · Jun 26, 2017 · 5af5135 · 5af5135
1 parent ca6c646
commit 5af5135
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Lib/Common/bignums-el.sch b/src/Lib/Common/bignums-el.sch
@@ -528,7 +528,8 @@
             (bytevector-like-set! c
                                   (- (- i k8) 1)
                                   (fxlogior (fxlogand c1 mask)
-                                            (fxlsh b0 (- 8 k8bits))))
+                                            (fxlogand (fxlsh b0 (- 8 k8bits))
+                                                      #xff)))
             (slow-loop (+ i 1)))))
 
     (cond ((< k 0)