lisp - CLOS 中的构造函数等价于什么？

Question

你会如何用 Lisp 表达下面的 Java 代码？

class Foo {
    private String s;

    public Foo(String s) {
        this.s = s;
    }
}

class Bar extends Foo {
    public Bar(int i) {
        super(Integer.toString(i));
    }
}

在 Lisp 中，make-instance 或 initialize-instance 是否等同于构造函数？如果是，您如何调用父类(super class)构造函数？

Answer 1

在方法中使用 CALL-NEXT-METHOD 调用下一个方法。

通常只需使用标准方法组合工具并为 INITIALIZE- 编写 :BEFORE、:AFTER 或 :AROUND 方法-实例。

一种方式:

(defclass foo ()
  ((s :type string :initarg :s)))

(defclass bar (foo) ())

(defmethod initialize-instance :around ((b bar) &key i)
  (call-next-method b :s (princ-to-string i)))

例子:

CL-USER 17 > (make-instance 'bar :i 10)
#<BAR 402000B95B>

CL-USER 18 > (describe *)

#<BAR 4130439703> is a BAR
S      "10"

请注意，我调用了 CALL-NEXT-METHOD，但没有更改它分派(dispatch)的参数。我刚刚更改了 &key initarg 参数。