Changeset 6011

Timestamp:

Mar 8, 2007, 9:24:25 PM (18 years ago)

Author:

Gary Byers

Message:

MAKE-RANDOM-STATE: don't shift.

File:

• trunk/ccl/level-1/l1-numbers.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-numbers.lisp

@@ -428 +428 @@
   (unless (and (fixnump seed-2) (%i<= 0 seed-2) (%i< seed-2 #x10000))
     (report-bad-arg seed-2 '(unsigned-byte 16)))
-  (let ((shift (%i- 16 target::fixnum-shift)))
     (gvector :istruct
              'random-state
-             (%ilsl shift seed-1)
-             (%ilsl shift seed-2))))
+             seed-1
+             seed-2))