Lisp：我如何获取在initialize-instance :around方法中创建的实例

Question

我想为类 X 创建一个初始化实例的 (:around Qualified) 专门化器，它将首先调用下一个方法，然后调用另一个类的 make-instance，为其提供创建的 X 实例。我怎样才能获取在initialize-instance :around 方法中创建的实例？ （当然假设在调用了 call-next-method 之后，所以我们处于 :around 的完成端）

编辑： A 类与 B 类通过每个类中的一个槽保持另一个类的 id，具有双向关系，但 A 类需要 B 类的 id，而相反则不需要。所以我想要的流程是：

1. make-instance 'classA

2. inside initialize-instance :around classA 我会有：

   我。 make-instance classB 并获取 id-of-B。

   ii 调用下一个方法添加 id-of-B

   iii 将 classB 的相应 id-of-A 插槽设置为我们创建的 classA 实例（这是我最初的问题原因）

现在我可以在 :before 和 [ 中执行 [i] iii] 在：之后，但我不能： 类 A 和 B 是通过大象的持久类，我想将整个流程包装在一个事务中，我不想跨越许多方法。对于那些熟悉大象的人来说，我想使用确保事务包装器，并且我不想在不同的点使用显式的开始和提交函数调用。

Answer 1

该实例作为initialize-instance 的第一个参数传递。

(defmethod initialize-instance :around ((created myclass) ...)
  ;; do something with created
  created)

Answer 2

您通常会使用 :after 方法而不是 :around 方法来执行此操作。除非您深入研究 CLOS 的内部，否则对未初始化的实例执行任何操作都没有多大意义。该实例作为initialize-instance 的第一个参数提供。

如需更深入的处理，请参阅CLHS，第 7.1 节。