Map restructuring

map-restructuring.clj

(defmacro m:p "Makes a map from a list of symbols, using the symbol names to create keyword keys.
---
(let [a 1 b 2 c \"3\"]
  (m:p a b c))
=> {:a 1, :b 2, :c \"3\"}
" [& syms]
  (reduce (fn [m sym]
            (assert (symbol? sym) "m:p only accepts symbols")
            (assoc m (keyword (name sym)) sym)) 
          {} syms))
(comment 
  (let [a 1 b :two c "three"]
    (m:p a b c))
  => {:a 1, :b :two, :c "three"}
)