Changeset 9531


Ignore:
Timestamp:
May 16, 2008, 3:11:52 AM (11 years ago)
Author:
gb
Message:

Un-botch %STRUCTURE-CLASS-OF.

File:
1 edited

Legend:

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

    r9523 r9531  
    7676(defun %structure-class-of (thing)
    7777  (let* ((cell (car (uvref thing 0))))
    78     (or (class-cell-class name)
     78    (or (class-cell-class cell)
    7979        (setf (class-cell-class cell)
    80               (find-class (class-cell-name name))))))
     80              (find-class (class-cell-name cell))))))
    8181
    8282;These might want to compiler-transform into non-typechecking versions...
Note: See TracChangeset for help on using the changeset viewer.