projects
/
opera
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix bug with extra tildes, spacing in usage
[opera]
/
src
/
main
/
opera.lisp
diff --git
a/src/main/opera.lisp
b/src/main/opera.lisp
index 0d70f9f0c5a6a793dcc8a855fac0cc2d20654bf8..b66a4c07cf1fecdafaab2eb3a7dfbd04e585317b 100644
(file)
--- 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
((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*
(car (reverse current-strings))
(cdr (reverse current-strings)))
(let*