(dolist (u (listify usage))
(pprint-logical-block (stream nil
:prefix (concatenate 'string prog " "))
- (format stream "~{~A ~:_~}" (listify u)))
- (pprint-newline :mandatory stream))))
+ (format stream "~{~A~^ ~:_~}" (listify u)))))
+ (terpri stream))
(defun show-options-help (opts &optional (stream *standard-output*))
"Write help for OPTS to the STREAM. This is the core of the `show-help'