分からん

(defun foo (a)
(let ((al '(0)))
(if a (setcar al a))
al))
(foo nil)
(0)
(foo 1)
(1)
(foo nil)
(1)

最後、なんで (1) になるんだろう……。分からんからまだまだelisp初心者。