Changeset 10409


Ignore:
Timestamp:
Aug 9, 2008, 2:58:02 PM (11 years ago)
Author:
gb
Message:

Try to handle the (forthcoming) new scheme and the old in %STRUCTURE-CLASS-OF.

New images soon. (Still.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/defstruct.lisp

    r8997 r10409  
    7575
    7676(defun %structure-class-of (thing)
    77   (find-class (struct-name thing)))
     77  (let* ((cell (car (uvref thing 0))))
     78    (if (istruct-typep cell 'class-cell)
     79      (or (class-cell-class cell)
     80          (setf (class-cell-class cell)
     81                (find-class (class-cell-name cell))))
     82      (find-class cell))))
    7883
    7984;These might want to compiler-transform into non-typechecking versions...
Note: See TracChangeset for help on using the changeset viewer.