From: Tobias C. Rittweiler <trittweiler@users.sourceforge.net>
Date: Wed, 20 Jan 2010 22:51:19 +0000 (+0000)
Subject: 1.0.34.8: Cosmetic improvements to error output on compilation abort.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=09e08ad0ba4eb09cd1a08ef5b7da527757ca78e5;p=sbcl.git

1.0.34.8: Cosmetic improvements to error output on compilation abort.

* Make sure that error output is printed on a fresh line.

* Add mandatory newline before and after so the abortion
  stands out visually.

* Make sure to report the actual condition (fatal-compiler-error
  is just an encapsulation.)
---

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 49078b9..993bd7f 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -1624,10 +1624,11 @@
       ;; the input file.
       (fatal-compiler-error (condition)
        (signal condition)
+       (fresh-line *error-output*)
        (pprint-logical-block (*error-output* nil :per-line-prefix "; ")
          (format *error-output*
-                 "~@<compilation aborted because of fatal error: ~2I~_~A~:>"
-                 condition))
+                 "~@<~@:_compilation aborted because of fatal error: ~2I~_~A~@:_~:>"
+                 (encapsulated-condition condition)))
        (finish-output *error-output*)
        (values t t t)))))
 
diff --git a/version.lisp-expr b/version.lisp-expr
index 790158d..55ed714 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.34.7"
+"1.0.34.8"