- (apply
- #'make-instance 'attributes-esd
- :attributes (remove-duplicates (mapappend #'dsd-attributes dsds))
- (kmr-mop::compute-effective-slot-definition-initargs cl dsds))
- )
-
-#+ignore
-(defmethod kmr-mop:compute-effective-slot-definition :around
- ((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))
-
+ (let ((esd (call-next-method)))
+ (setf (esd-attributes esd) (remove-duplicates (mapappend #'dsd-attributes dsds)))
+ esd))