- (dprint "Re-initing")
- (apply #'reinitialize-instance attribute
- (print (direct-attribute-properties direct-slot)))
- (when (not (eq (find-class (attribute-class attribute))
- (class-of attribute)))
+ (let ((initargs
+ (prepare-initargs attribute (direct-attribute-properties direct-slot))))
+
+ (apply #'reinitialize-instance attribute
+ initargs )
+ (when (not (eq (find-class (attribute-class attribute))
+ (class-of attribute)))