X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frandom.pure.lisp;h=829ff4de81a2b6ba0ab3a43e4fd229caa40760a2;hb=a6661cdaac013752213d381aa469cb0919a6ce4c;hp=101333e42e0d85f4da77a08b0df6747787fc20ba;hpb=fa1f8141814d146ed69630dcd08a749058ef5119;p=sbcl.git

diff --git a/tests/random.pure.lisp b/tests/random.pure.lisp
index 101333e..829ff4d 100644
--- 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)