(let ((l-store '())
      (q-store '()))
  (defun foo (n)
    (let ((l (list 1 2 3 4))
	  (q '(1 2 3 4)))
      (format t "~D: ~S, ~S~%" n (eq l l-store) (eq q q-store))
      (setf l-store l q-store q))))
(foo 1)
(foo 2)
(foo 3)