defsetf

>(setq v 10)
10
>(macroexpand '(setf (symbol-value 'v) 20))
(set 'v 20)

>(defsetf foo set)
(setf foo)
>(macroexpand '(setf (foo 'v) 30))
(set 'v 30)

http://www.yuasa.kuis.kyoto-u.ac.jp/~komiya/tus-man/tus/node41.html（終わりのほう。Schemeのページだけど）
http://www.lisp.org/HyperSpec/Body/mac_defsetf.html