optparse.lisp: Fix spurious indentation after the usage message.

[lisp] / optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index b41801724876e3f990130f4397b6052d14730ce1..8ccbaa7f2dd61f616569b7be7fd79be48c44477e 100644 (file)
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -114,7 +114,7 @@ (defstruct (option
   (short-name nil :type (or null character) :read-only t)
   (arg-name nil :type (or null string) :read-only t)
   (arg-optional-p nil :type t :read-only t)
-  (documentation nil :type (or null string)) :read-only t)
+  (documentation nil :type (or null string) :read-only t))
 
 (export '(option-parser option-parser-p make-option-parser
          op-options op-non-option op-long-only-p
@@ -172,7 +172,7 @@ (defstruct (option-parser
   (long-only-p nil :type t :read-only t)
   (numeric-p nil :type t :read-only t)
   (negated-numeric-p nil :type t :read-only t)
-  (negated-p nil :type t) :read-only t)
+  (negated-p nil :type t :read-only t))
 
 (export 'option-parse-error)
 (define-condition option-parse-error (error simple-condition)
@@ -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 " "))
-       (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'