閉鎖を扱うelisp

Question

より効果的な方法でプロジェクトディレクトリにアクセスするために使用できる一連の関数を生成できるマクロを作成しようとしています。次のマクロを見ると、自分がやろうとしていることを知っているはずです。

(defmacro create-project-cmd (project-name project-dir &optional subdir-list) 
    (if (null subdir-list) 
     `(fset (intern ,project-name) #'(lambda() (interactive) (dired ,project-dir))) 
     `(dolist (dir ,subdir-list) 
     (fset (intern (concat ,project-name "-" dir)) 
       #'(lambda() (interactive) (dired (concat ,project-dir "/" dir))))))) 

ここでの問題は、最後の行に「DIR」はdolist句の「DIR」に結合することになっています。そして、elispにクロージャがないので、生成された関数を呼び出すと、dirが無効であると不平を言うでしょう。

コードからわかるように、私は "project-dir"のクロージャを偽造しています。私は "dir"と同じ方法でそれを偽造することはできません。レキシカルレットはここではうまく動作しますが、記憶に問題があるので避けようとしています。それを使用する習慣を育てたくない（おそらく私はあまりにも甘いかもしれません）。

私はこれを処理する良い方法がありません。誰でも良い提案がありますか？

Answer 1

• How to overcome the lack of local variable for emacs lisp closure
• How do I do closures in Emacs Lisp?
• http://www.emacswiki.org/emacs/FakeClosures

編集：字句-LETが出ている場合は、どのようにこのようなものについて：

(defmacro create-project-cmd (project-name project-dir &optional subdir-list) 
    (if (null subdir-list) 
     `(fset (intern ,project-name) #'(lambda() (interactive) (dired ,project-dir))) 
    (let ((fsets nil)) 
     (dolist (dir subdir-list) 
     (add-to-list 
     'fsets 
     `(fset (intern (concat ,project-name "-" ,dir)) 
       #'(lambda() (interactive) (dired (concat ,project-dir "/" ,dir)))))) 
     `(progn ,@fsets)))) 

(create-project-cmd "projfoo" "projdir" ("foo" "bar" "baz")) 

(symbol-function 'projfoo-bar) 
(lambda nil (interactive) (dired (concat "projdir" "/" "bar")))