- ((cl attributes-class) #+kmr-named-cesd name dsds)
- #+kmr-named-cesd (declare (ignore name))
- (let ((normal-slot (call-next-method)))
- (setf (esd-attributes normal-slot)
- (remove-duplicates
- (mapappend #'esd-attributes dsds)))
- normal-slot))
+ ((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))