;; 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)