:format-arguments (list thing)))))
(res (make-condition-object args)))
(setf (%instance-layout res) (class-layout class))
;; Set any class slots with initargs present in this call.
(dolist (cslot (condition-class-class-slots class))
(dolist (initarg (condition-slot-initargs cslot))
:format-arguments (list thing)))))
(res (make-condition-object args)))
(setf (%instance-layout res) (class-layout class))
;; Set any class slots with initargs present in this call.
(dolist (cslot (condition-class-class-slots class))
(dolist (initarg (condition-slot-initargs cslot))