Changeset 8918


Ignore:
Timestamp:
Mar 28, 2008, 8:26:11 AM (11 years ago)
Author:
gb
Message:

Some (SETF FIND-CLASS) fixes from the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-clos-boot.lisp

    r8833 r8918  
    12411241  (let ((cell (find-class-cell name class)))
    12421242    (when cell
    1243       (if (eq name (%class.name class))
    1244         (setf (info-type-kind name) :instance))
     1243      (when class
     1244        (if (eq name (%class.name class))
     1245          (setf (info-type-kind name) :instance)))
    12451246      (setf (class-cell-class cell) class))
    12461247    class))
     
    12911292 (defun set-find-class (name class)
    12921293   (setq name (require-type name 'symbol))
    1293    (let ((cell (find-class-cell name class)))
     1294   (let ((cell (find-class-cell name t)))
    12941295     (declare (type class-cell cell))
    12951296       (let ((old-class (class-cell-class cell)))
Note: See TracChangeset for help on using the changeset viewer.