From: Michael W. <mic...@fo...> - 2008-06-12 11:05:42
|
Signed-off-by: Michael Weber <mic...@fo...> --- Previously, subsequent lines of forms printed in compiler error messages were indented wrongly, because pretty-printing did not pick up the 2-space indentation in front of the form: Before: ; in: LAMBDA NIL ; (IF FOO-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ; BAR-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ; BAZ-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) After: ; in: LAMBDA NIL ; (IF FOO-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ; BAR-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX ; BAZ-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) src/compiler/ir1report.lisp | 4 ++-- 1 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp index 0a90d60..01fe978 100644 --- a/src/compiler/ir1report.lisp +++ b/src/compiler/ir1report.lisp @@ -294,8 +294,8 @@ (compiler-error-context-original-source last))) (note-message-repeats stream) (setq last nil) - (pprint-logical-block (stream nil :per-line-prefix "; ") - (format stream " ~A" form)) + (pprint-logical-block (stream nil :per-line-prefix "; ") + (princ form stream)) (fresh-line stream)) (unless (and last -- 1.5.5.1.60.gb7f6 |
From: Christophe R. <cs...@ca...> - 2008-06-16 23:10:31
|
Michael Weber <mic...@fo...> writes: > - (pprint-logical-block (stream nil :per-line-prefix "; ") > - (format stream " ~A" form)) > + (pprint-logical-block (stream nil :per-line-prefix "; ") > + (princ form stream)) Heh, thanks. Merged as sbcl-1.0.17.37. Best, Christophe |