(defmacro def-function-map-factory [namesym docstr k]
  `(defmacro ~namesym ~docstr
     [& args#]
     (let [f# (if (= 1 (count args#))
                (first args#)
                (list* 'fn args#))]
       `{~~k ~f#})))