(let ((boundp (most-specific-slot-value direct-slotds 'boundp)))
(unless (eq boundp *unbound-marker*)
(setf (getf initargs :boundp) boundp)))
(let ((boundp (most-specific-slot-value direct-slotds 'boundp)))
(unless (eq boundp *unbound-marker*)
(setf (getf initargs :boundp) boundp)))