Changeset 7354 for trunk/ccl/level-0/l0-numbers.lisp

Timestamp:

Oct 5, 2007, 2:48:08 PM (14 years ago)

Author:

gb

Message:

Remove brain-damage from INIT-RANDOM-STATE-SEEDS.

File:

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

trunk/ccl/level-0/l0-numbers.lisp

@@ -1719 +1719 @@
                                     (mixup-hash-code
                                      (logand (get-internal-real-time)
-                                             most-positive-fixnum)))))
-         (high (ldb (byte 16 16) (if (zerop ticks) 1 ticks)))
+                                             (1- most-positive-fixnum))))))
+         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
          (low (ldb (byte 16 0) ticks)))
     (declare (fixnum high low))