(let ((slot (find slotd (class-slots class))))
(if slot
(dynamic-slot-boundp instance (slot-definition-name slotd))
(call-next-method))))
(defmethod slot-makunbound-using-class ((class dynamic-slot-class)
(let ((slot (find slotd (class-slots class))))
(if slot
(dynamic-slot-boundp instance (slot-definition-name slotd))
(call-next-method))))
(defmethod slot-makunbound-using-class ((class dynamic-slot-class)