src/optparse.lisp: Don't print options which have no help text.

[sod] / src / optparse.lisp

diff --git a/src/optparse.lisp b/src/optparse.lisp
index 5268cda..c901a9e 100644 (file)
--- a/src/optparse.lisp
+++ b/src/optparse.lisp
@@ -1004,7 +1004,7 @@
               (pprint-logical-block (stream nil)
                 (print-text doc stream))
               (terpri stream))
-             (t
+             (doc
               (setf newlinep t)
               (pprint-logical-block (stream nil :prefix "  ")
                 (format stream "~:[   ~;-~:*~C,~] --~A"