eval.clj

(eval
 `(let [foo# 10]
    (defmacro use-foo# [x#]
      `(+ ~foo# ~x#))
    (macroexpand '(use-foo# 5))))
;=> (clojure.core/+ 10 5)

(eval
 `(let [foo# 10]
    (defmacro use-foo# [x#]
      `(+ ~foo# ~x#))
    (use-foo# 5)))
;=> Wrong number of args (1) passed to: user$eval3352$use-foo--3348--auto--


(let [fname (gensym)
      foo 10]
  (eval
   `(do
      (defmacro ~fname [x#]
       `(+ ~~foo ~x#))
      (~fname 5))))
;=> 15