(defun test-fn (a)
  (let ((x a))
    (test-macro)))

(defmacro test-macro ()
  `(progn
     (print "Hello, World!")
     (print x)))