Changeset 10299


Ignore:
Timestamp:
Aug 4, 2008, 8:21:38 AM (11 years ago)
Author:
gb
Message:

Use SET-ISTRUCT-CELL-INFO (not (SETF ISTRUCT-CELL-INFO)) in
MAKE-ISTRUCT-CLASS, for bootstrapping.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/source/level-1/l1-clos-boot.lisp

    r10293 r10299  
    14061406  (let* ((class (apply #'make-built-in-class name supers))
    14071407         (cell (register-istruct-cell name)))
    1408     (setf (istruct-cell-info cell) (%class.own-wrapper class))
     1408    (set-istruct-cell-info cell (%class.own-wrapper class))
    14091409    class))
    14101410
Note: See TracChangeset for help on using the changeset viewer.