Skip to content

Commit

Permalink
1.0.7.10: added a FINISH-OUTPUT before switching streams
Browse files Browse the repository at this point in the history
	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).
  • Loading branch information
William Harold Newman committed Jul 2, 2007
1 parent e0a4fab commit 7f2a87e
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 1 deletion.
1 change: 1 addition & 0 deletions src/compiler/main.lisp
Original file line number Diff line number Diff line change
Expand Up @@ -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.
Expand Down
2 changes: 1 addition & 1 deletion version.lisp-expr
Original file line number Diff line number Diff line change
Expand Up @@ -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"

0 comments on commit 7f2a87e

Please sign in to comment.