X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/77f935dafbb63f1674a3df832972fda67c10e3d6..b59116d4852b98693178ff0d98b99dc690514c69:/optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index b418017..8ccbaa7 100644
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -114,7 +114,7 @@
   (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 @@
   (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 @@
     (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'