CLOS 中 (:before/:after) 方法调用的顺序？

Question

我需要一些帮助来理解以下代码的执行顺序。

我创建了一个 pie 实例，使用以下内容：

(cook (make-instance 'pie))

我知道 lisp 执行从最具体到最不具体的函数。但是，它看起来不像是在 (defmethod Cook 之后执行的 pie)) 被调用。

( ( 执行于相反的顺序，因为我们的实例是 pie，而不是父类，food

谢谢， 任何意见将不胜感激。

(defclass food () ())

(defmethod cook :before ((f food))
  (print "A food is about to be cooked."))

(defmethod cook :after ((f food)) 
  (print "A food has been cooked."))

(defclass pie (food)
  ((filling :accessor pie-filling
            :initarg :filling 
            :initform 'apple)))

(defmethod cook ((p pie))
  (print "Cooking a pie.")
  (setf (pie-filling p) (list 'cooked (pie-filling p))))

(defmethod cook :before ((p pie))
  (print "A pie is about to be cooked."))

(defmethod cook :after ((p pie)) 
  (print "A pie has been cooked."))
  (setq pie-1 (make-instance 'pie :filling 'apple))

输出如下：

"A pie is about to be cooked." 
"A food is about to be cooked." 
"Cooking a pie." 
"A food has been cooked." 
"A pie has been cooked." 
(COOKED APPLE)

Answer 1

请参阅Common Lisp HyperSpec 第 7.6.6.2 节（标准方法组合） 。这是最相关的段落：

before 方法按照最具体优先的顺序运行，而
after 方法以最不具体​​的优先顺序运行。设计
可以用一个例子来说明这种差异的基本原理。
假设类 C1 修改其超类 C2 的行为：
添加 before 方法和 after 方法。其行为是否
类 C2 直接由 C2 上的方法定义或从其继承
超类不影响调用的相对顺序
类 C1 的实例上的方法。 C1 类的 before 方法运行
在类 C2 的所有方法之前。 C1 类的 after 方法在之后运行
C2 类的所有方法。

Answer 2

• 首先执行最具体的主要方法，然后通过CALL-NEXT-METHOD执行下一个具体方法。

• :before 方法首先执行最具体的方法。

• :after 方法按最不具体优先执行。