- (lambda ()
- (loop :for direct-slot :in (class-direct-slots class)
- :do (let ((attribute
- (find (slot-definition-name direct-slot)
- attribute-objects
- :key #'attribute-name)))
- (apply #'reinitialize-instance attribute
- (direct-attribute-properties direct-slot))
- (apply #'change-class attribute (attribute-class attribute) (direct-attribute-properties direct-slot))
-
- (setf (slot-value description (attribute-name attribute))
- attribute))))))))
+ (lambda ()
+ (loop :for direct-slot :in (class-direct-slots class)
+ :do (let ((attribute
+ (find (slot-definition-name direct-slot)
+ attribute-objects
+ :key #'attribute-name)))
+ (apply #'reinitialize-instance attribute
+ (direct-attribute-properties direct-slot))
+ (apply #'change-class attribute (attribute-class attribute) (direct-attribute-properties direct-slot))
+
+ (setf (slot-value description (attribute-name attribute))
+ attribute))))))))