-(defmethod compute-effective-slot-definition :around
- ((cl attributes-class) #+ho-named-cesd-fun name dsds)
- #+ho-named-cesd-fun (declare (ignore name))
- (let ((normal-slot (call-next-method)))
- (setf (slot-definition-attributes normal-slot)
- (remove-duplicates
- (mapappend #'slot-definition-attributes dsds)))
- normal-slot))
-
-
-(defmethod compute-slots ((class attributes-class))
+(defmethod kmr-mop:compute-effective-slot-definition :around
+ ((cl attributes-class) #+kmr-normal-cesd name dsds)
+ #+kmr-normal-cesd (declare (ignore name))
+ (let ((esd (call-next-method)))
+ (setq esd (change-class esd 'attributes-esd))
+ (print esd)
+ (print (remove-duplicates (mapappend #'dsd-attributes dsds)))
+ (setf (esd-attributes esd) (remove-duplicates (mapappend #'dsd-attributes dsds)))
+ esd))
+
+
+(defmethod kmr-mop:compute-slots ((class attributes-class))