       {:expected-docs expected-docs
        :docstring (fix-docstring docstring)
        :signatures signatures
-       :fn-or-macro fn-or-macro})))
+       :type type-})))
 
 (defn parse-def-fn
   [form]

                       (second arglists)))]
    {:docstring docstring
     :signatures signatures
     :fn-or-macro "function"}))

(defmulti parse-form*
  (fn [form]


(defn parse-defn-or-macro
  [form]
  (let [type- ({'defn "function" 'defmacro "macro"} (first form))
        args (drop 2 form)
        docstring (let [ds (first args)]
                    (when (string? ds)
