Changeset 9523


Ignore:
Timestamp:
May 16, 2008, 1:59: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.lisp

    r8983 r9523  
    7575
    7676(defun %structure-class-of (thing)
    77   (find-class (struct-name thing)))
     77  (let* ((cell (car (uvref thing 0))))
     78    (or (class-cell-class name)
     79        (setf (class-cell-class cell)
     80              (find-class (class-cell-name name))))))
    7881
    7982;These might want to compiler-transform into non-typechecking versions...
Note: See TracChangeset for help on using the changeset viewer.