lisp - Lisp イントロスペクション? 関数が呼び出されたときと終了したとき

Question

一般的な Lisp では、イントロスペクションのプロパティを想定しています。関数がいつ呼び出され、いつ実行が終了したかを知らせるコードを一般的な Lisp コードに追加するにはどうすればよいですか。Lispコードと、このコードへの特定の変更を取りたいと思います。私は、Lisp の AST 分析を考えれば、これは可能であるはずです。

Answer 1

(trace function)簡単なメカニズムに使用できます。もっと複雑なことについては、ここにcomp.lang.lispからの良い議論があります。

[CL_USER]>
(defun fac (n)
    "Naïve factorial implementation"
    (if (< 1 n)
        (* n (fac (- n 1)))
        1))
FAC
[CL_USER]> (trace fac)
;; Tracing function FAC.
(FAC)
[CL_USER]> (fac 5)
1. Trace: (FAC '5)
2. Trace: (FAC '4)
3. Trace: (FAC '3)
4. Trace: (FAC '2)
5. Trace: (FAC '1)
5. Trace: FAC ==> 1
4. Trace: FAC ==> 2
3. Trace: FAC ==> 6
2. Trace: FAC ==> 24
1. Trace: FAC ==> 120
120
[CL_USER]> 

Answer 2

CLOSがオプションの場合、他のメソッドの前、後、および周囲で実行される before、after、および around メソッドがあります。

Answer 3

Common Lisp には、指定された各呼び出しの関数、引数、および結果の値を報告する TRACE 関数があります。これは Steel Bank のバージョンのドキュメント ページですが、ほとんどの実装で同様のものを見つける必要があります。

http://www.sbcl.org/manual/Function-Tracing.html

システムにはプロファイラーも含まれています。

http://www.sbcl.org/manual/Det​​erministic-Profiler.html