- (when (use-instance-class-p self)
- (setf (classes self)
- (append (find-instance-classes self)
- (classes self))))
- (setf (attribute-slot-map self) (find-slot-presentations self))
- (setf (slots self) (mapcar #'(lambda (x)(cdr x)) (attribute-slot-map self ))))
+ (when (instance self)
+ (when (use-instance-class-p self)
+ (setf (classes self)
+ (append (find-instance-classes self)
+ (classes self))))
+ (setf (attribute-slot-map self) (find-slot-presentations self))
+ (setf (slots self) (mapcar #'(lambda (x)(cdr x)) (attribute-slot-map self )))))