inheritance - 普通 lisp 中的多个构造函数

Question

在 common-lisp 中，类可以有多个构造函数和/或复制构造函数吗？也就是说 - 为了为新向量创建一个类 - “vecr” 来表示实数的 3 维向量，我想定义可以通过多种方式初始化的新类:

(vecr 1.2) ==> #(1.2 1.2 1.2)

或

(vecr 1.2 1.4 3.2) ==> #(1.2 4.3 2.5)

或

(vecr) ==> #(0.0 0.0 0.0)

Answer 1

我不知道如何评论上面所说的内容:

This function works well to create a default #(0.0 0.0 0.0) type of vector. However, (vecr 1.0) ==> #(1.0 0.0 0.0) instead of the intended #(1.0 1.0 1.0). I suppose the way around this is to check whether all three were passed, or just one of the optional arguments. – Shamster 6 hours ago

你可以这样做:

(defun vecr (&optional (x 0.0) (y x) (z y))
  (vector x y z))