X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-random.lisp;h=af1e45fe88c11ee4535a16d30a475f9ace68ad23;hb=545fa4548b327804cf78afe38a2ecd94ced86162;hp=9937cd7d36b0f60a386c634b96444cec83a6a085;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git

diff --git a/src/code/target-random.lisp b/src/code/target-random.lisp
index 9937cd7..af1e45f 100644
--- a/src/code/target-random.lisp
+++ b/src/code/target-random.lisp
@@ -191,7 +191,7 @@
      (- (sb!impl::make-double-float
 	 (dpb (ash (random-chunk state)
 		   (- sb!vm:double-float-digits random-chunk-length
-		      sb!vm:word-bits))
+		      sb!vm:n-word-bits))
 	      sb!vm:double-float-significand-byte
 	      (sb!impl::double-float-high-bits 1d0))
 	 (random-chunk state))
@@ -207,7 +207,7 @@
        (- (sb!impl::make-double-float
 	   (dpb (ash (sb!vm::random-mt19937 state-vector)
 		     (- sb!vm:double-float-digits random-chunk-length
-			sb!vm:word-bits))
+			sb!vm:n-word-bits))
 		sb!vm:double-float-significand-byte
 		(sb!impl::double-float-high-bits 1d0))
 	   (sb!vm::random-mt19937 state-vector))