Steel Bank Common Lisp

Update of /cvsroot/sbcl/sbcl/src/compiler
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv13172/src/compiler

Modified Files:
	main.lisp 
Log Message:
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.)


Index: main.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/main.lisp,v
retrieving revision 1.147
retrieving revision 1.148
diff -u -d -r1.147 -r1.148
--- main.lisp	16 Dec 2009 09:59:00 -0000	1.147
+++ main.lisp	20 Jan 2010 22:51:20 -0000	1.148
@@ -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)))))