clj macros

macros.clj

(defmacro compact [& args]
  (assert (and (every? symbol? args)
               (every? (comp var? resolve) args))
          "Each of the arguments must be a defined symbol")
  (zipmap (map keyword args) args))