- (let ((normal-slot (call-next-method)))
- (setf (esd-attributes normal-slot)
- (remove-duplicates
- (mapappend #'esd-attributes dsds)))
- normal-slot))
+ (let ((esd (call-next-method)))
+ (print esd)
+ (print (remove-duplicates
+ (mapappend #'dsd-attributes dsds)))
+ (setf (esd-attributes esd)
+ (remove-duplicates (mapappend #'dsd-attributes dsds)))
+ esd))