debugging - 如何描述本地函数(跟踪)？

Question

在 Common Lisp 中，函数(跟踪名称)可用于查看有关函数调用的输出。

如果我的函数是用局部作用域声明的，我如何描述它以进行跟踪？

例如，如何跟踪栏，如下:

(defun foo (x)  
  (labels ((bar (y) (format t "bar: ~a~&" y)))  
    (bar x)))  

Answer 1

由于没有跟踪本地函数的标准方法，因此我解决问题的方法是编写一个实现跟踪的 tracing-labels 宏，并转换以下内容:

(defun foo (x)  
  (tracing-labels ((bar (y) (format t "bar: ~a~&" y)))  
    (bar x)))

变成这样的东西:

(defun foo (x)
  (labels ((bar (y)
             (format *trace-output* "~&ENTER: ~S" 'bar)  ;'
             (multiple-value-prog1
                 (progn (format t "bar: ~a~&" y))
               (format *trace-output* "~&LEAVE: ~S" 'bar))))  ;'
    (bar x)))