(slot-value (if (slot-boundp object slot-name)
(slot-value object slot-name)
*ginspect-unbound-object-marker*)))
(cons (string slot-name) slot-value)))))
(slot-value (if (slot-boundp object slot-name)
(slot-value object slot-name)
*ginspect-unbound-object-marker*)))
(cons (string slot-name) slot-value)))))