(defvar a-a)

(defun a-foo (callback)
  (let ((a-a 4))
    (funcall callback)))

(defun a-bar ()
  a-a)

(provide 'a)