(declare (type sb!c::lexenv env))
(multiple-value-bind (dummies vals newval setter getter)
(sb!xc:get-setf-expansion place env)
(declare (type sb!c::lexenv env))
(multiple-value-bind (dummies vals newval setter getter)
(sb!xc:get-setf-expansion place env)