Changeset 7354 for trunk/ccl/level-0/l0-numbers.lisp
- Timestamp:
- Oct 5, 2007, 2:48:08 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/level-0/l0-numbers.lisp
r7350 r7354 1719 1719 (mixup-hash-code 1720 1720 (logand (get-internal-real-time) 1721 most-positive-fixnum)))))1722 (high (ldb (byte 16 16) (if (zerop ticks) 1ticks)))1721 (1- most-positive-fixnum)))))) 1722 (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks))) 1723 1723 (low (ldb (byte 16 0) ticks))) 1724 1724 (declare (fixnum high low))
Note: See TracChangeset
for help on using the changeset viewer.