   (let [fmt (case (count lens)
               2 "~{  ~vA  ~vA~}"
               3 "~{  ~vA  ~vA  ~vA~}")]
-    (map #(s/trimr (cl-format nil fmt (interleave lens %))) parts)))
+    (map #(s/trimr (pp/cl-format nil fmt (interleave lens %))) parts)))
 
 (defn ^{:added "0.3.0"} summarize
   "Reduce options specs into a options summary for printing at a terminal."

     :arguments   A vector of unprocessed arguments
     :summary     A string containing a minimal options summary
     :errors      A possible vector of error message strings generated during
                  parsing; nil when no errors exist
     }

  A few function options may be specified to influence the behavior of
  parse-opts:

  [switches flag]
  (-> (for [^String s switches]
        (cond
         (and flag (flag? s))            [(s/replace s #"\[no-\]" "no-") (s/replace s #"\[no-\]" "")]
         (and flag (.startsWith s "--")) [(s/replace s #"--" "--no-") s]
         :default                        [s]))
      flatten))

