one of two things

gistfile1.clj

user> (defmacro as-doubled-pair [v]
	`(let [v# (mapv (partial * 2) ~v)]
	     [v# v#]))
#'user/as-doubled-pair
user> (macroexpand (as-doubled-pair [1 2 3]))
[[2 4 6] [2 4 6]]

user> (defmacro as-doubled-pair2 [v]
	(let [v (mapv (partial * 2) v)]
	     `(do [~v ~v])))
#'user/as-doubled-pair2
user> (macroexpand (as-doubled-pair2 [1 2 3]))