Ignore:
Timestamp:
Aug 11, 2008, 3:49:48 AM (11 years ago)
Author:
gb
Message:

Merge a lot of the CLOS/type-system changes from working-0711 branch
into trunk. Todo: compiler-macros for those changes.

Have -not- yet merged source-tracking changes, new record-source file
from working-0711, but this stuff seems to bootstrap in one swell foop.

File:
1 edited

Legend:

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

    r10211 r10426  
    423423(defun %cons-random-state (seed-1 seed-2)
    424424  #+32-bit-target
    425   (%istruct
    426    'random-state
    427    seed-1
    428    seed-2)
     425  (%istruct 'random-state seed-1 seed-2)
    429426  #+64-bit-target
    430   (%istruct
    431    'random-state
    432    (the fixnum (+ (the fixnum seed-2)
    433                   (the fixnum (ash (the fixnum seed-1) 16))))))
     427  (%istruct 'random-state (the fixnum (+ (the fixnum seed-2)
     428                          (the fixnum (ash (the fixnum seed-1) 16))))))
    434429
    435430;;; random associated stuff except for the print-object method which
Note: See TracChangeset for help on using the changeset viewer.