macro.clj

(defmacro evaluated [syms & body]
  (let [m (into {} (map (juxt identity gensym) syms))]
    `(let [~@(mapcat (fn [temp-sym] [temp-sym `(gensym)]) (vals m))]
       `(let [~~@(mapcat reverse m)]
          ~(let [~@(mapcat identity m)]
             ~@body)))))

(defmacro foo [a b]
  `(+ ~a ~a ~b ~b))

(defmacro bar [a b]
  (evaluated [a b]
    `(+ ~a ~a ~b ~b)))

(foo (do (print "A") 1)
     (do (print "B") 2))
;; => prints AABB, returns 6

(bar (do (print "A") 1)
     (do (print "B") 2))
;; => prints AB, returns 6