(defvar foo '(specially foo))

(defun foo1 ()
  (foo2))

(defun foo2 ()
  (print foo))

(defun foo3 ()
  (let ((foo '(lexically foo)))
    (foo2)))