Better equidistributed and faster/less consing integer RANDOM.

[sbcl.git] / tests / random.pure.lisp

diff --git a/tests/random.pure.lisp b/tests/random.pure.lisp
index 101333e..829ff4d 100644 (file)
--- a/tests/random.pure.lisp
+++ b/tests/random.pure.lisp
@@ -114,8 +114,8 @@
                                nconc (list (1- (expt 2 i))
                                            (expt 2 i)
                                            (1+ (expt 2 i))))
-                       ,@(loop for i from (1- sb-kernel::random-chunk-length)
-                               to (* sb-kernel::random-chunk-length 4)
+                       ,@(loop for i from (1- sb-kernel::n-random-chunk-bits)
+                               to (* sb-kernel::n-random-chunk-bits 4)
                                collect (* 3 (expt 2 i)))
                        ,@(loop for i from 2 to sb-vm:n-word-bits
                                for n = (expt 16 i)