:reader class-direct-slots)
(slots
:initform ()
- :reader class-slots)
- (slot-vector
- :initform #(nil)
- :reader class-slot-vector)))
+ :reader class-slots)))
;;; The class STD-CLASS is an implementation-specific common
;;; superclass of the classes STANDARD-CLASS and