Changeset 7354


Ignore:
Timestamp:
Oct 5, 2007, 2:48:08 PM (12 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-numbers.lisp

    r7350 r7354  
    17191719                                    (mixup-hash-code
    17201720                                     (logand (get-internal-real-time)
    1721                                              most-positive-fixnum)))))
    1722          (high (ldb (byte 16 16) (if (zerop ticks) 1 ticks)))
     1721                                             (1- most-positive-fixnum))))))
     1722         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
    17231723         (low (ldb (byte 16 0) ticks)))
    17241724    (declare (fixnum high low))
Note: See TracChangeset for help on using the changeset viewer.