X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Farith.pure.lisp;h=d58da25c52158a9ceb9639605a40cf5e0461132c;hb=f17e3d27d7ff599f9443d011d17017a2a858c81a;hp=b1ebdb20cba3c5105a49db013d4ac13b82c43534;hpb=0b79d8fa3e2a1c2ba30fac3828215d74351ff40e;p=sbcl.git

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index b1ebdb2..d58da25 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -456,7 +456,8 @@
                                 ,@(loop repeat 4
                                         collect (+ 10000 (random 101)))
                                 ,@(loop for i from 4 to sb-vm:n-word-bits
-                                        for r = (random (expt 2 i))
+                                        for pow = (expt 2 (1- i))
+                                        for r = (+ pow (random pow))
                                         collect r)))
               (when (typep dividend dividend-type)
                 (multiple-value-bind (q1 r1)