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相当于构造函数？如果是,你如何调用超类构造函数？

Answer 1

使用CALL-NEXT-METHOD从方法中调用下一个.

通常只使用标准的方法组合设施和写:BEFORE,:AFTER或:AROUND用于方法INITIALIZE-INSTANCE.

单程:

(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没有更改它调度的参数.我刚刚更改了&keyinitarg参数.