lisp - 在循环中使用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):

最佳答案

应该是(setf letterSearchOn (char string1 i))。
在Common Lisp中(setf)的工作方式非常酷；它是一个宏，但是使用的宏扩展程序取决于参数例如：

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

这看起来奇怪吗(car a)是一个函数如何将其“设置”为新值？？？？答案是，如果(setf)的第一个参数是以car开头的列表，那么它将扩展为设置cons单元格的car的代码如果第一个参数是以cdr开头的列表，则它将展开为设置cons单元格的cdr的代码。对于向量、哈希表等，等等。
您甚至可以定义自己的(setf)宏，它可以扩展(setf)知道如何设置的范围在本例中，您传递的是(letterSearchOn (char string1 i))，因此它认为您希望它使用特殊的letterSearchOn宏扩展器，但尚未定义这样的setf宏扩展器。

关于lisp - 在循环中使用Setf语法，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/9261351/