((cl attributes-class) #+kmr-normal-cesd name dsds)
#+kmr-normal-cesd (declare (ignore name))
(let ((esd (call-next-method)))
((cl attributes-class) #+kmr-normal-cesd name dsds)
#+kmr-normal-cesd (declare (ignore name))
(let ((esd (call-next-method)))