的Emacs Lisp：使用报价在本地范围内（例如，功能范围）

Question

我的代码是这样的创建列表：

(defun test() "Test." 
    (setq lista '(A)) 
    (push 'B lista) 
    (nreverse lista)) 

(message "%s" (test)) ; Output is (A B) 
(message "%s" (test)) ; Output is (B A B) 

，因为我希望得到的结果是

(A B) 
(A B) 

如果我似乎很奇怪用(setq lista (list 'A))替代(setq lista '(A))，我得到预期的结果。我认为列表创建方法会导致差异，但我不知道细节。

我的emacs的版本是GNU Emacs的24.5.1

Answer 1

你这样做：

(defvar t1 '(A)) 
(defun test() 
    "Test." 
    (setq lista t1) 
    (push 'B lista) 
    (nreverse lista)) 

您修改cons单元这部分代码：第一个电话后，t1成为'(A B)。

使用(list)代替(quote)避免：

(defun test() 
    "Test." 
    (setq lista (list 'A)) 
    (push 'B lista) 
    (nreverse lista))