(defmethod kmr-mop:compute-effective-slot-definition :around
((cl attributes-class) #+kmr-normal-cesd name dsds)
#+kmr-normal-cesd (declare (ignore name))
(apply
#'make-instance 'attributes-esd
:attributes (remove-duplicates (mapappend #'dsd-attributes dsds))
(defmethod kmr-mop:compute-effective-slot-definition :around
((cl attributes-class) #+kmr-normal-cesd name dsds)
#+kmr-normal-cesd (declare (ignore name))
(apply
#'make-instance 'attributes-esd
:attributes (remove-duplicates (mapappend #'dsd-attributes dsds))