-(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)
instance of `SodClass', and `SodClass' is a subclass of `SodObject' (and
an instance of itself)."
(let* ((sod-object (make-sod-class "SodObject" nil
instance of `SodClass', and `SodClass' is a subclass of `SodObject' (and
an instance of itself)."
(let* ((sod-object (make-sod-class "SodObject" nil