From 09e08ad0ba4eb09cd1a08ef5b7da527757ca78e5 Mon Sep 17 00:00:00 2001 From: "Tobias C. Rittweiler" Date: Wed, 20 Jan 2010 22:51:19 +0000 Subject: [PATCH] 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.) --- src/compiler/main.lisp | 5 +++-- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 3 deletions(-) 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* - "~@" - 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" -- 1.7.10.4