Lisp中的循环变量

我写了这个函数

(defun test ()
  (let ((str1 "foo") (str2 "bar"))
    (loop for s in '(str1 str2) do (message s))))

但它不起作用。Elisp回溯消息为：

调试器已输入--Lisp错误：（类型参数stringp str1错误）

我怎样才能让它工作

附言：下面的修改版本很好用，但我需要原始版本

(defun test1 ()
  (loop for s in '("asdf" "fdsa") do (message s)))

尝试：

---

quote

运算符（撇号是语法上的糖）意味着不计算其参数，即

（quote（str1 str2））

返回两个符号的列表。改为使用

列表

：

（列表str1 str2）

建立一个值列表：

(defun test ()
  (let ((str1 "foo") (str2 "bar"))
    (loop for s in (list str1 str2) do (message s))))

有点复杂——一个simeple（列出str1和str2）也可以

(defun test ()
  (let ((str1 "foo") (str2 "bar"))
    (loop for s in (list str1 str2) do (message s))))