 
 (defn fzprint*
   "The pretty print part of fzprint."
-  [{:keys [width rightcnt fn-map hex? shift-seq dbg? dbg-print? in-hang?
+  [{:keys [width rightcnt hex? shift-seq dbg? dbg-print? in-hang?
            one-line? string-str? string-color depth max-depth trim-comments?
            in-code? max-hang-depth max-hang-span max-hang-count next-inner],
     :as options} indent zloc]

(defn show-user-fn?
  "Show this thing as a user defined function?  Assumes that we
  have already handled any clojure defined functions!"
  [options f]
  (when (not (string? f))
    (let [f-str (str f)
          user-fn-map (:user-fn-map options)]
      (or (get user-fn-map f-str)
          (if (symbol? f)
            ; This is necessary because f can be a symbol that


(defn showfn?
  "Show this thing as a function?"
  [{:keys [fn-map color?], :as options} f]
  (when (and color? (not (string? f)))
    (let [f-str (str f)
          fn-map (:fn-map options)]
      (or (fn-map f-str)
          (re-find #"clojure" f-str)
          (if (symbol? f)
