cl advice:Common Lisp的简单建议系统 源码

CL-ADVICE 一个轻巧的便携式系统,用于建议Common Lisp中的功能。 可以将任意数量的建议添加到任何建议的功能中。 可以使用define-advisable定义一个建议的功能,而可以使用make-advisable定义已经定义的功能。 可以使用add-advice和advise-function add-advice添加到advise-function 。 有关功能的建议可以与list-advice一起list-advice ,也可以通过remove-advice和remove-nth-advice 。 咨询类型 三种类型的建议:: :BEFORE , :AFTER和:AROU