1.0.7.10: added a FINISH-OUTPUT before switching streams

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).