          previous-comment? nil]
     (if (empty? coll)
       (let [result (persistent! out)]
-        (prn "precede-w-nl: exit:" result)
+        #_(prn "precede-w-nl: exit:" result)
         (if previous-comment? (butlast result) result))
       (let [[[s color what] :as element] (first coll)
             ; This element may have many things in it, or sometimes

        (concat-no-nil
          l-str-vec
          pre-arg-1-style-vec
	  (do (prn "pre-arg-1-style-vec:" pre-arg-1-style-vec "r-str-vec:" r-str-vec) :noseq)
	  (if arg-1-zloc
	  (do
          (fzprint* loptions (+ l-str-len ind) arg-1-zloc)
          (let [zloc-seq-right-first (get-zloc-seq-right first-data)]
            (if zloc-seq-right-first
              ; We have something else to format after arg-1-zloc

    (let [zloc-seq (nthnext zloc-seq (inc next-count))]
      (dbg-pr "get-zloc-seq-right:" (map zstring zloc-seq))
      zloc-seq)))


;;
;; # Indent-only support
