-(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
- ((cl attributes-class) #+kmr-normal-cesd name dsds)
- #+kmr-normal-cesd (declare (ignore name))
+(defmethod kmr-mop:compute-effective-slot-definition
+ ((cl attributes-class) #+kmrcl::normal-cesd name dsds)
+ #+kmrcl::normal-cesd (declare (ignore name))