;;; specialize cache implementation or discrimination nets, but this
;;; has not occurred as yet.
(defun raise-metatype (metatype new-specializer)
- (let ((slot (find-class 'slot-class))
- (standard (find-class 'standard-class))
- (fsc (find-class 'funcallable-standard-class))
- (condition (find-class 'condition-class))
- (structure (find-class 'structure-class))
- (built-in (find-class 'built-in-class))
- (frc (find-class 'forward-referenced-class)))
+ (let ((slot *the-class-slot-class*)
+ (standard *the-class-standard-class*)
+ (fsc *the-class-funcallable-standard-class*)
+ (condition *the-class-condition-class*)
+ (structure *the-class-structure-class*)
+ (built-in *the-class-built-in-class*)
+ (frc *the-class-forward-referenced-class*))
(flet ((specializer->metatype (x)
(let* ((specializer-class (if (eq **boot-state** 'complete)
(specializer-class-or-nil x)