(declare (ignore environment))
(let ((class (class-of object)))
(collect ((inits))
(dolist (slot (class-slots class))
(let ((slot-name (slot-definition-name slot)))
(when (or (memq slot-name slot-names)
(declare (ignore environment))
(let ((class (class-of object)))
(collect ((inits))
(dolist (slot (class-slots class))
(let ((slot-name (slot-definition-name slot)))
(when (or (memq slot-name slot-names)
(eq :instance (slot-definition-allocation slot))))
(if (slot-boundp-using-class class object slot)
(let ((value (slot-value-using-class class object slot)))
(eq :instance (slot-definition-allocation slot))))
(if (slot-boundp-using-class class object slot)
(let ((value (slot-value-using-class class object slot)))