dep.lisp (recompute-dep-value): Refactor the flag calculation.

[lisp] / optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index 159ee602778b84345cc4070f8f0046c1e526875a..8ccbaa7f2dd61f616569b7be7fd79be48c44477e 100644 (file)
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -862,8 +862,8 @@ (defun show-usage (prog usage &optional (stream *standard-output*))
     (dolist (u (listify usage))
       (pprint-logical-block (stream nil
                                    :prefix (concatenate 'string prog " "))
     (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'
 
 (defun show-options-help (opts &optional (stream *standard-output*))
   "Write help for OPTS to the STREAM.  This is the core of the `show-help'