(let ((a "apple")
      (b "ball"))

  (defmacro hello (name)
    `(format t "hello, ~a~%" ,name))

  (hello "watson")
  (format t "a: ~a~%" a)
  (format t "b: ~a~%" b))