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