Elisp のトグル動作や内部カウンタはクロージャを使う

よく忘れるので、メモしておきます。 トグル動作をさせたい場合や、内部のカウンタを使いたいときは、スタティック変数が欲しいところです。 Emacs Lisp ではクロージャを使えば可能です。 (defun cage1 () (lexical-let ((v 0)) (defun func1 () (setq v (1+ v))))) ; C-x C-e これを評価すると、`cage1` という関数が定義されます。しかし `cage1` 関数自体はコールされてないため、`cage1` の中にある `func1` 関数はまだ未定義です。 なので、`func1`をコールしたいと思っても、 (func1) ; C-x C-e Debugger entered--Lisp error: (void-function func1) (func1) eval((func1) nil) eval-last-sexp-1(nil) eval-last-sexp(nil) call-interactively(eval-last-sexp) eval-region-or-last-sexp() call-interactively(eval-region-or-last-sexp nil nil) となり、エラーが発生します。 一旦 `cage1` をコールしてやれば、 `func1` が定義されるので、それ以後は問題なく `func1` をコールできるようになります。 (cage1) ; C-x C-e (func1) ; C-x C-e => 1 (func1) ; C-x C-e => 2 (func1) ; C-x C-e => 3 ここでもし 変数 `v` がグローバル変数なら、外から値を変更できてしまいます。しかし、この `v` はレキシカル変数(この場合 `cage1` 内部にある、一種のローカル変数)なので、外から変更できません。 外から変更しようとして、下のようにしても (setq v 100) ; C-x C-e (func1) ; C-x C-e => 4 (func1) ; C-x C-e => 5 というぐあいに、`func1` が 101, 102, ... を返したりはせず、カウンタの動作として正しい値をカウントし続けます。 つまり、100 を setq した `v` と `func1` がカウンタに使っている `v` は別物ということです。 カウンタではなく、トグル動作にしたい場合は (defun cage1 () (lexical-let ((v nil)) (defun func1 () (setq v (not v))))) とします。