-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
- #+(or sbcl cmu scl lispworks)
- initargs
- #+(or allegro) &rest #+(or allegro) 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))