主页 / coding / 问题 / 79314331
Accepted
kflak
Asked: 2024-12-29 02:13:31 +0800 CST

如何访问类内的插槽？

  • 772

给定一个类定义，是否可以根据另一个插槽来定义一个插槽，类似于我如何做的let*？

例如，我希望能够做这样的事情（显然不起作用）：

(defclass foo ()
  ((x :initform 1 :accessor x)
   (y :initform (+ 1 x) :accessor y)))
common-lisp

1 个回答

  1. Best Answer

    在DEFCLASS插槽描述中不能引用插槽。

    一种典型的方式是编写一个:after方法initialize-instance：

    (defclass foo ()
  ((x :initform 1 :accessor foo-x)
   (y             :accessor foo-y)))

(defmethod initialize-instance :after ((object foo) &rest args)
  (with-slots (x y) object
    (setf y (1+ x))))

CL-USER 44 > (make-instance 'foo)
#<FOO 81B0161EEB>

CL-USER 45 > (describe *)

#<FOO 81B0161EEB> is a FOO
X      1
Y      2
    • 1

相关问题