Methods 公共lisp中的匿名方法

我想将泛型函数另存为变量：

(defvar *gf* (make-instance 'standard-generic-function)

但在添加方法时，我必须定义

调用下一个方法

和

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)))))

如何调用一个方法来定义

调用下一个方法

？ 有更简单的方法吗？

请参阅

如果你用谷歌搜索它，你会发现关于这个功能的各种信息。比如说