From: William H. N. <wn...@us...> - 2007-07-02 17:49:03
|
Update of /cvsroot/sbcl/sbcl/src/compiler In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv17679/src/compiler Modified Files: main.lisp Log Message: 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). Index: main.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/compiler/main.lisp,v retrieving revision 1.126 retrieving revision 1.127 diff -u -d -r1.126 -r1.127 --- main.lisp 3 May 2007 03:27:57 -0000 1.126 +++ main.lisp 2 Jul 2007 17:48:52 -0000 1.127 @@ -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. |