From: William Harold Newman <william.newman@airmail.net>
Date: Mon, 2 Jul 2007 17:48:52 +0000 (+0000)
Subject: 1.0.7.10: added a FINISH-OUTPUT before switching streams
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=7f2a87e987b70891684cafe8c71e057b9cdc6092;p=sbcl.git

1.0.7.10: added a FINISH-OUTPUT before switching streams
	Before this little patch, compiling a source file containing
	only three #\. characters gave output like this:
	  * (compile-file "dots.lisp")
	  ; compiling file "/tmp/dots.lisp" (written 02 JUL 2007 12:27:29 PM):
	  ;
	  ; compilation unit aborted
	  ;   caught 1 fatal ERROR condition
	  ; compilation aborted because of fatal error:
	  ;   READ failure in COMPILE-FILE:
	  ;     READER-ERROR at 3 (line 1, column 3) on #<SB-SYS:FD-STREAM for "file /tmp/dots.lisp" {AB65D21}>:

	  ; /tmp/dots.fasl written
	  ; compilation finished in 0:00:00
	  #P"/tmp/dots.fasl"
	  T
	  ; too many dotsT
	  *
        After this patch, the 'too many dots' text ends up where
	it should (several lines earlier).
---

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
index 516da03..f99f24e 100644
--- a/src/compiler/main.lisp
+++ b/src/compiler/main.lisp
@@ -1556,6 +1556,7 @@
          (format *error-output*
                  "~@<compilation aborted because of fatal error: ~2I~_~A~:>"
                  condition))
+       (finish-output *error-output*)
        (values nil t t)))))
 
 ;;; Return a pathname for the named file. The file must exist.
diff --git a/version.lisp-expr b/version.lisp-expr
index 63f3ca6..7c80488 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.7.9"
+"1.0.7.10"