From 431bef76ea3304860503dde9dcbc10e2cee8c5eb Mon Sep 17 00:00:00 2001 From: Frank Duncan Date: Sat, 3 Jul 2021 07:05:44 -0500 Subject: [PATCH] Fix bug with extra tildes, spacing in usage --- src/main/opera.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/main/opera.lisp b/src/main/opera.lisp index 0d70f9f..b66a4c0 100644 --- a/src/main/opera.lisp +++ b/src/main/opera.lisp @@ -87,7 +87,8 @@ ((process-options (remaining-options &optional current-strings) (if (not remaining-options) (format nil - (format nil "~~A~~{~~,,~A~~A~~}" command-width) + ; Then 1+ is for the space after the command + (format nil "~~A~~{~~%~~,,~A@A~~}" (1+ command-width)) (car (reverse current-strings)) (cdr (reverse current-strings))) (let* -- 2.25.1