(eq :instance (slot-definition-allocation slot))))
(if (slot-boundp-using-class class object slot)
(let ((value (slot-value-using-class class object slot)))
(if (typep object 'structure-object)
;; low-level but less noisy initializer form
(eq :instance (slot-definition-allocation slot))))
(if (slot-boundp-using-class class object slot)
(let ((value (slot-value-using-class class object slot)))
(if (typep object 'structure-object)
;; low-level but less noisy initializer form