- (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*))