-(defmethod method-keyword-argument-lists
- ((method initialization-effective-method) direct-methods state)
+(defmethod sod-message-keyword-argument-lists
+ ((message initialization-message) (class sod-class) direct-methods state)
;; If there are applicable initialization arguments,
;; check to see whether they were supplied.
(dolist (initarg (reverse (remove-duplicates
initargs
:key #'sod-initarg-name
;; If there are applicable initialization arguments,
;; check to see whether they were supplied.
(dolist (initarg (reverse (remove-duplicates
initargs
:key #'sod-initarg-name
(let ((arg-name (sod-initarg-name initarg)))
(setf initinst (make-if-inst
(format nil "suppliedp.~A" arg-name)
(let ((arg-name (sod-initarg-name initarg)))
(setf initinst (make-if-inst
(format nil "suppliedp.~A" arg-name)