(slot-boundp object slot-name)
(slot-value object slot-name)
(defun dd-name (dd) (slot-value dd 'sb-kernel::name))
(slot-missing class instance slot-name operation &optional new-value)
(slot-unbound class instance slot-name)