X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Farith.pure.lisp;h=d58da25c52158a9ceb9639605a40cf5e0461132c;hb=86d50ba6266c823eedd444c4e1c5a55e9dc7f46a;hp=d570df27365a56f33c6156554f60c284ff2c8421;hpb=7ab4cdd5eaf3dce3cc596b348bfc98aaa27469d5;p=sbcl.git

diff --git a/tests/arith.pure.lisp b/tests/arith.pure.lisp
index d570df2..d58da25 100644
--- a/tests/arith.pure.lisp
+++ b/tests/arith.pure.lisp
@@ -414,7 +414,7 @@
   (dolist (fun '(truncate floor ceiling mod rem))
     (let* ((foo (compile nil `(lambda (x)
                                 (declare (optimize (speed 3)
-                                                   (space 0)
+                                                   (space 1)
                                                    (compilation-speed 0))
                                          (type (unsigned-byte
                                                 ,sb-vm:n-word-bits) x))
@@ -446,7 +446,7 @@
         (dolist (fun '(truncate ceiling floor mod rem))
           (let ((foo (compile nil `(lambda (x)
                                      (declare (optimize (speed 3)
-                                                        (space 0)
+                                                        (space 1)
                                                         (compilation-speed 0))
                                               (type ,dividend-type x))
                                      (,fun x ,divisor)))))
@@ -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)