# HG changeset patch # User Steve Losh # Date 1577132042 18000 # Node ID c18067150e3f25117666919a23cfb0aeb8f7cd55 # Parent d5dbc46f6ddb79932152d30eaa8a3a99093af60b# Parent 6efdac6231f2ee5af1f7a415f8b855764f36841a Merge. diff -r d5dbc46f6ddb -r c18067150e3f src/main.lisp --- a/src/main.lisp Mon Dec 23 15:13:14 2019 -0500 +++ b/src/main.lisp Mon Dec 23 15:14:02 2019 -0500 @@ -606,7 +606,7 @@ (doc-column (+ option-column option-width option-padding)) (doc-width (- width doc-column))) (when help - (format stream "~%~{ ~A~^~%~}~2%" + (format stream "~{ ~A~^~%~}~2%" (bobbin:wrap (list help) help-width))) (dolist (option (options group)) (print-option-help stream option option-column doc-column doc-width)))))