mdef.clj

gistfile1.clj

(defmacro mdef [keys values]
  `(do
     ~@(loop [keys keys, values values, forms ()]
          (if (seq keys)
            (recur (rest keys) (rest values)
                   (cons `(def ~(first keys) ~(first values))
                         forms))
            forms))))

(mdef [a b c] [1 2 3])
(println a b)