-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
- #+(or sbcl cmu scl lispworks)
- initargs
- #+(or allegro)
- &rest iargs)
- ;; (format t "attributes:~s iargs:~s~%" attributes iargs)
+(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class) #+kmr-normal-dsdc &rest initargs)
+ (declare (ignore initargs))