遍歷變量在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))))