From 3dba250d40912df843708c98114a084c731f4132 Mon Sep 17 00:00:00 2001 Message-Id: <3dba250d40912df843708c98114a084c731f4132.1746197707.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 20 Sep 2017 22:19:34 +0100 Subject: [PATCH] optparse.lisp: Fix spurious indentation after the usage message. Organization: Straylight/Edgeware From: Mark Wooding --- optparse.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/optparse.lisp b/optparse.lisp index 159ee60..8ccbaa7 100644 --- a/optparse.lisp +++ b/optparse.lisp @@ -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' -- [mdw]