在我的類定義中,我想根據另一個插槽的值初始化一個插槽。這裏是諸如此類的事情,我想這樣做:基於Common Lisp對象系統類定義中的其他插槽值初始化插槽
(defclass my-class()
((slot-1 :accessor my-class-slot-1 :initarg slot-1)
(slot-2 :accessor my-class-slot-2 :initform (list slot-1))))
然而,這並不編譯:
1 compiler notes:
Unknown location:
warning:
This variable is undefined:
SLOT-1
warning:
undefined variable: SLOT-1
==>
(CONS UC-2::SLOT-1 NIL)
Compilation failed.
有沒有辦法做到這一點?
這是可以使用結構的東西嗎? – mck 2015-11-18 01:20:48