X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmain.lisp;h=f99f24eda888d7a066bc80ec280ecf55e7df7620;hb=119c1bcd2cfff74d2968209207ea34ba0e1739f7;hp=516da032ee47bcc5854f152c7969801614fdab3f;hpb=49e92ee57b3b01f5862d0c6fa65f521de1688941;p=sbcl.git

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.