Macro that generates a defn
The code is nice, there are only some minor improvements here.


I love that you have written a docstring.
You do not need the # in the variable names. These names are used for generating symbols but you do not use this capability in the code.
You could make adjusted-make a symbol when defined in the let block. This way the constructed form would be simpler and more readable.
I prefer doing assert calls for error handling in macros. You could check that the first parameter is a symbol? and the second is a vector? of keys.
Instead of (into {} (map ...)) you can also use zipmap to construct the map.


The code can be rewritten as the following:

  (defmacro defmap
"Generates a defn that creates a function with the name (str \"-&gt;\" map-name) that
returns a map. The map will have keys of fields, with the values of the arguments passed to the function."
[map-name fields]
(assert (symbol? map-name))
(assert (vector? fields))
(let [adjusted-name (symbol (str "-&gt;" map-name))
      args          (mapv (comp symbol name) fields)
      body-map      (zipmap fields args)]
  `(defn ~adjusted-name ~args ~body-map)))