Ignore:
Timestamp:
Feb 21, 2008, 9:29:38 AM (12 years ago)
Author:
gb
Message:

"early" SET-FIND-CLASS: don't call %CLASS-NAME on NIL.
"late" SET-FIND-CLASS: pass T (not class ???) to FIND-CLASS-CELL.

File:
1 edited

Legend:

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

    r7982 r8533  
    12381238  (let ((cell (find-class-cell name class)))
    12391239    (when cell
    1240       (if (eq name (%class.name class))
    1241         (setf (info-type-kind name) :instance))
     1240      (when class
     1241        (if (eq name (%class.name class))
     1242          (setf (info-type-kind name) :instance)))
    12421243      (setf (class-cell-class cell) class))
    12431244    class))
     
    12881289 (defun set-find-class (name class)
    12891290   (setq name (require-type name 'symbol))
    1290    (let ((cell (find-class-cell name class)))
     1291   (let ((cell (find-class-cell name t)))
    12911292     (declare (type class-cell cell))
    12921293       (let ((old-class (class-cell-class cell)))
Note: See TracChangeset for help on using the changeset viewer.