X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/d9cfb3e0f486ebb403c2456ac5d8f0b2152dd255..3dba250d40912df843708c98114a084c731f4132:/optparse.lisp?ds=sidebyside diff --git a/optparse.lisp b/optparse.lisp index 159ee60..8ccbaa7 100644 --- a/optparse.lisp +++ b/optparse.lisp @@ -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'