collect (let* ((slot-name (pcl:slot-definition-name slotd))
(slot-value (if (slot-boundp object slot-name)
(slot-value object slot-name)
collect (let* ((slot-name (pcl:slot-definition-name slotd))
(slot-value (if (slot-boundp object slot-name)
(slot-value object slot-name)