hg.stevelosh.com > adopt

--- 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)))))
author	Steve Losh <steve@stevelosh.com>
date	Mon, 23 Dec 2019 15:14:02 -0500
parents	d5dbc46f6ddb (current diff) 6efdac6231f2 (diff)
children	46b958e3d8d1
branches/tags	(none)
files	src/main.lisp