(defun initargs-plist->special-slot-bindings (class initargs-plist)
"returns a list of (slot-name value) Given a plist of initargs such as one would pass to :DEFAULT-INITARGS."
(let ((initargs.slot-names-alist (initargs.slot-names class)))
(defun initargs-plist->special-slot-bindings (class initargs-plist)
"returns a list of (slot-name value) Given a plist of initargs such as one would pass to :DEFAULT-INITARGS."
(let ((initargs.slot-names-alist (initargs.slot-names class)))