gistfile1.clj

(use 'clojure.contrib.repl-utils)
(use 'clojure.contrib.pprint)

(defmacro foo [arg]
  `(fn [] (println "foo" ~arg))
)

(defmacro bar [arg]
  `(fn [] (println "bar" ~arg))
)

(defmacro example [& args]
  (map (fn [macro-name]
    ((resolve (symbol macro-name)) "example")
  ) args)
)

(def test-one (foo "example one"))
(def test-two (bar "example two"))

(test-one)
(test-two)

(def test-fn-vector (example "foo" "bar"))

(pprint test-fn-vector)