(defmacro accessor-slot-value (object slot-name &environment env)
(aver (constantp slot-name env))
(let* ((slot-name (constant-form-value slot-name env))
(reader-name (slot-reader-name slot-name)))
`(let ((.ignore. (load-time-value
(ensure-accessor 'reader ',reader-name ',slot-name))))
(defmacro accessor-slot-value (object slot-name &environment env)
(aver (constantp slot-name env))
(let* ((slot-name (constant-form-value slot-name env))
(reader-name (slot-reader-name slot-name)))
`(let ((.ignore. (load-time-value
(ensure-accessor 'reader ',reader-name ',slot-name))))