*slime-repl clojure*

user> (defn make-getter [name type]
			(list 'def name type))
#'user/make-getter
user> (defmacro make-gets [names types]
				`(do
				  ~@(map make-getter names types)))
#'user/make-gets
user> (macroexpand '(make-gets [a] ['str]))
(do (def a (quote str)))
user> (make-gets [a] ['str])
#'user/a
user> a
str
user>