我想将通用函数保存为变量:
(defvar *gf* (make-instance 'standard-generic-function)
但是在添加方法时,我必须自己定义call-next-method
和next-method-p
:
(add-method *gf*
(make-instane 'standard-method
:function (lambda (args next-methods)
(flet ((call-next-method () ...)
(next-method-p () ...))
(apply (lambda () ...) args)))))
如何调用方法来定义call-next-method
?
有更简单的方法吗?