(defvar a 10)

(defun test ()
  (format t "~a~%" a))

(let ((a 1))
  (test))