Changeset 10211


Ignore:
Timestamp:
Jul 27, 2008, 2:35:24 AM (11 years ago)
Author:
gb
Message:

Use the %ISTRUCT macro to cons istructs (like RANDOM-STATE).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-numbers.lisp

    r10130 r10211  
    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
     426   'random-state
     427   seed-1
     428   seed-2)
    429429  #+64-bit-target
    430   (gvector :istruct
    431            'random-state
    432            (the fixnum (+ (the fixnum seed-2)
    433                           (the fixnum (ash (the fixnum seed-1) 16))))))
     430  (%istruct
     431   'random-state
     432   (the fixnum (+ (the fixnum seed-2)
     433                  (the fixnum (ash (the fixnum seed-1) 16))))))
    434434
    435435;;; random associated stuff except for the print-object method which
Note: See TracChangeset for help on using the changeset viewer.