-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
- &rest iargs &key attributes)
- (declare (ignore attributes))
- ;; (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))