Emacs Lisp: créer une liste en utilisant citation dans la portée locale (par exemple, la portée de la fonction)

Question

Mon code est comme ceci:

(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) 

Il semble étrange parce que je pense que le résultat soit

(A B) 
(A B) 

Si je remplacer (setq lista '(A)) avec (setq lista (list 'A)), je reçois le résultat attendu. Je pense que les méthodes de création de liste font la différence mais je ne connais pas les détails.

Ma version emacs est GNU Emacs 24.5.1

Answer 1

Vous faites ceci:

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

Vous modifiez une cellule de contre qui fait partie du code: après le premier appel, t1 devient '(A B).

l'éviter en utilisant (list) au lieu de (quote):

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