dep.lisp (%dep-value): Force the dep before registering a dependents.

[lisp] / optparse.lisp

diff --git a/optparse.lisp b/optparse.lisp
index b418017..8ccbaa7 100644 (file)
--- 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'