(define-compiler-macro set-slot-value (&whole form object slot-name new-value
&environment env)
(if (and (constantp slot-name env)
(define-compiler-macro set-slot-value (&whole form object slot-name new-value
&environment env)
(if (and (constantp slot-name env)