function - 如何动态包装现有功能，例如分析器？

Question

我是 Lisp 的新手，正在尝试不同的东西来提高我的技能。我想写一个宏来包装现有函数，以便我可以为这些函数设置前后形式，有点像 CLOS 的辅助方法或 Elisp 的建议包。 trace 函数动态包装代码的能力引起了我的兴趣，而且我自己能够做到这一点似乎很有用。

我该怎么做？

请注意，我正在使用 SBCL，并且出于这个问题的目的，我对添加到我的 Lisp 技巧包中的“正确”方法不太感兴趣。

Answer 1

我不知道在 CLOS 之外对此有任何内置支持。但是您可以像这样重新定义原始函数:

(defmacro add-post (fun-name &body body)
  (let ((orig (gensym)))
    `(let ((,orig (fdefinition ,fun-name))) 
       (setf (fdefinition ,fun-name) (lambda (&rest args)
                                       (apply ,orig args)
                                       ,@body)))))