eval and macro

gistfile1.lisp

>(defmacro add-to-list (a lst)
  `(setf ,lst (cons ,a ,lst)))

>(setf lst '(1 2)) ; lst是一個變數，值為(1 2)這個list
>(setf a 'lst)     ; a是一個變數，值為#:LST這個symbol

>(cons 3 lst) ;lst先被evaluate
(3 1 2)
>lst
(1 2)    ;lst的值不會變

>(add-to-list 3 lst) ;l拿進macro裡面才被evaluate
(3 1 2)
>lst
(3 1 2)

>(eval `(add-to-list 4 ,a)) ;先展開backquote變成(eval '(add-to-list 4 lst))
(4 3 1 2)
>lst
(4 3 1 2)