遍历变量在Lisp中

Question

我写的函数

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

，但它不工作。在elisp的回溯消息是：

Debugger entered--Lisp error: (wrong-type-argument stringp str1)

我怎样才能使它发挥作用？

PS：以下修改后的版本完美的作品，但我需要的原始版本

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

Answer 1

的quote运算符（其中撇号是语法糖），意味着其参数未被评估，即(quote (str1 str2))返回两个符号列表。改为使用list：(list str1 str2)。

Answer 2

尝试：

`(,str1 ,str2) 

Answer 3

构建值的列表：

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