(if (and (constantp slot-name-form)
(let ((slot-name (eval slot-name-form)))
(and (symbolp slot-name) (symbol-package slot-name))))
`(accessor-set-slot-value ,object-form ,slot-name-form ,new-value-form)
`(set-slot-value-normal ,object-form ,slot-name-form ,new-value-form)))
(if (and (constantp slot-name-form)
(let ((slot-name (eval slot-name-form)))
(and (symbolp slot-name) (symbol-package slot-name))))
`(accessor-set-slot-value ,object-form ,slot-name-form ,new-value-form)
`(set-slot-value-normal ,object-form ,slot-name-form ,new-value-form)))