defrecord_plus.clj

(defmacro defrecord+
  [name slots & rest]
  (let [fields (->> slots (partition 2) (map first) vec)
        defaults (->> slots (partition 2) (map second) vec)]
    `(do
       (defrecord ~name
         ~fields
         ~@rest)
       (defn ~(symbol (str "new-" name))
         []
         (~(symbol (str name \.)) ~@defaults))
       ~name)))