Changeset 9522


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

Arrange that structure instances will have a list of their class's
CLASS-CELLS (rather than class-names) in its 0th element.

May have missed a few things.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711-perf/ccl/lib/defstruct-macros.lisp

    r2325 r9522  
    8181(defmacro sd-refnames (sd) `(svref ,sd 6))
    8282
    83 (defmacro struct-name (struct) `(car (uvref ,struct 0)))
    84 (defmacro struct-def (struct) `(gethash (car (uvref ,struct 0)) %defstructs%))
     83(defmacro struct-name (struct) `(class-cell-name (car (uvref ,struct 0))))
     84(defmacro struct-def (struct) `(gethash (class-cell-name (car (uvref ,struct 0))) %defstructs%))
    8585
    8686;Can use this to let the printer print with print-function, reader read with
Note: See TracChangeset for help on using the changeset viewer.