From 89663cc1628de11b862f6a1ad36666044838e7f8 Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Sat, 19 Apr 2008 22:33:51 +0100 Subject: [PATCH] optparse: Hack pretty-printing for CLisp. CLisp's pretty printing is buggy, but we can get much closer by doing some simple reordering of the existing code. --- optparse.lisp | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/optparse.lisp b/optparse.lisp index b490b37..1322e10 100644 --- a/optparse.lisp +++ b/optparse.lisp @@ -859,7 +859,8 @@ a single string is sufficient." (pprint-logical-block (stream nil :prefix "Usage: ") (dolist (u (listify usage)) - (pprint-logical-block (stream nil :prefix (format nil "~A " prog)) + (pprint-logical-block (stream nil + :prefix (concatenate 'string prog " ")) (format stream "~{~A ~:_~}" (listify u))) (pprint-newline :mandatory stream)))) @@ -880,7 +881,6 @@ (t (setf newlinep t) (pprint-logical-block (stream nil :prefix " ") - (pprint-indent :block 30 stream) (format stream "~:[ ~;-~:*~C,~] --~A" (opt-short-name o) (opt-long-name o)) @@ -890,6 +890,7 @@ (opt-arg-name o))) (write-string " " stream) (pprint-tab :line 30 1 stream) + (pprint-indent :block 30 stream) (print-text doc stream)) (terpri stream))))))) -- 2.11.0