Ignore:
Timestamp:
Aug 9, 2008, 2:39:01 AM (12 years ago)
Author:
gb
Message:

Move %FIND-CLASSES% and accessor to level-0.

Start to bootstrap structure-type changes by making STRUCTURE-TYPEP
handle legacy/new cases.

File:
1 edited

Legend:

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

    r10377 r10406  
    12001200
    12011201
    1202 (defvar %find-classes% (make-hash-table :test 'eq))
    12031202
    12041203(defun class-cell-typep (form class-cell)
     
    12261225
    12271226
    1228 (defun find-class-cell (name create?)
    1229   (let ((cell (gethash name %find-classes%)))
    1230     (or cell
    1231         (and create?
    1232              (setf (gethash name %find-classes%) (make-class-cell name))))))
     1227
    12331228
    12341229
Note: See TracChangeset for help on using the changeset viewer.