CLOS:将符号转换为访问器

Question

我想这是一个真正的初学者问题，但我在这里找不到答案。我的问题是:我想这样设置一个类的槽的值：

(setf (accessor class) value)

为此，我编写了一个小函数：

(defun set-class-slots (class slot value)
      (setf (slot class) value))

我在一个for循环中使用了它，在这个循环中，我迭代了2个列表(插槽(符号列表)和值(数字列表))，并希望将一个实例的多个插槽设置为值。

(loop for slot in slots for value in values do
      (set-class-slots <myclass> slot value)
      )

我得到的错误是：

“形式((setf插槽)#：|Store-Var-773597|#：g773598)的未定义运算符(setf插槽)。”

我认为问题在于我的函数中的setf没有使用为输入arg提供的值。“slot”，但作为运算符读取“slot”。

我尝试了不同的东西，symbol-function，funcall等，但我不知道该怎么做--因为我也不太明白哪里出了问题。

任何帮助都将不胜感激。

谢谢你，马利诺

Answer 1

您可以使用FDEFINITION来获取(setf XXX)函数的函数值：

(defun set-class-slots (class slot value)
    (funcall (fdefinition `(setf ,slot)) value class))