フラグを反転する

フラグの反転くらい、さらっと書きたい。

(setq *hoge-state* (not *hoge-state*))

ってのを

(notf *hoge-state*)

ってやりたい。

(defmacro notf (var)
`(setq ,var (not ,var)))

名前が今ひとつナニだが。