Changeset 9515


Ignore:
Timestamp:
May 16, 2008, 1:23:23 AM (11 years ago)
Author:
gb
Message:

Use %ISTRUCT macro in %CONS-RANDOM-STATE.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/level-1/l1-numbers.lisp

    r8920 r9515  
    423423(defun %cons-random-state (seed-1 seed-2)
    424424  #+32-bit-target
    425   (gvector :istruct
    426            'random-state
    427            seed-1
    428            seed-2)
     425  (%istruct 'random-state seed-1 seed-2)
    429426  #+64-bit-target
    430   (gvector :istruct
    431            'random-state
    432            (the fixnum (+ (the fixnum seed-2)
     427  (%istruct 'random-state (the fixnum (+ (the fixnum seed-2)
    433428                          (the fixnum (ash (the fixnum seed-1) 16))))))
    434429
Note: See TracChangeset for help on using the changeset viewer.