(let ((value (slot-value-using-class class object slot)))
(if (typep object 'structure-object)
;; low-level but less noisy initializer form
(let ((value (slot-value-using-class class object slot)))
(if (typep object 'structure-object)
;; low-level but less noisy initializer form
(dsd (find slot-name (dd-slots dd)
:key #'dsd-name)))
(inits `(,(slot-setter-lambda-form dd dsd)
(dsd (find slot-name (dd-slots dd)
:key #'dsd-name)))
(inits `(,(slot-setter-lambda-form dd dsd)