在循环中使用Setf语法

Question

为下面的变量做setf的正确方法是什么？

CG-USER(279): (defun LETTERSEARCH (string1 string2) 
  (let ((newString nil))
  (let ((letterSearchOn nil))
  (loop for i from 0 below (length string1)
      always
          (setf (letterSearchOn (char string1 i))           
          (print letterSearchOn))))))
LETTERSEARCH
CG-USER(280): (stringprod "abc" "abc")

NIL 
Error: `(SETF LETTERSEARCHON)' is not fbound
[condition type: UNDEFINED-FUNCTION]
CG-USER(281): 

Answer 1

那应该是(setf letterSearchOn (char string1 i)).

该方法(setf)的作品在Common Lisp是真的很酷; 它是一个宏,但使用的宏扩展器取决于参数.例如:

(defparameter a (list 1))
(setf (car a) 2)
a    ; => (2)
(setf (cdr a) (list 3))
a    ; => (2 3)

这看起来有点奇怪吗？(car a)是一个函数......如何将它"设置"为一个新值??? 答案是,如果第一个参数(setf)是一个以列表开头的列表car,它会扩展为设置carcons单元格的代码.如果第一个参数是以列号开头的列表cdr,则它会扩展为设置cdrcons单元格的代码.对于向量,哈希表等等等.

您甚至可以定义自己的(setf)宏,这可以扩展(setf)知道如何设置的事物的范围.在这种情况下,您正在传递(letterSearchOn (char string1 i)),因此它认为您希望它使用特殊的letterSearchOn宏扩展器,但是没有setf定义这样的宏扩展器.