-(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
- &rest iargs &key attributes)
- (declare (ignore attributes))
+(defmethod kmr-mop:direct-slot-definition-class ((cl attributes-class)
+ #+(or sbcl cmu scl lispworks)
+ initargs
+ #+(or allegro) &rest #+(or allegro) iargs)