CMUCL commit: src/compiler (main.lisp)

[Raymond Toy]

    Date: Friday, January 22, 2010 @ 01:17:14
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler

Modified: main.lisp

If a trace-file or error-file is specified, open the file with the
same external format used for reading the file.  This ensures that
these files will make sense if the source file makes sense for the
given external format.


-----------+
 main.lisp |    8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)


Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.147 src/compiler/main.lisp:1.148
--- src/compiler/main.lisp:1.147	Thu Jun 11 12:03:59 2009
+++ src/compiler/main.lisp	Fri Jan 22 01:17:13 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.147 2009-06-11 16:03:59 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.148 2010-01-22 06:17:13 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1828,13 +1828,15 @@
 	      (setq *compiler-trace-output*
 		    (open (frob trace-file "trace")
 			  :if-exists :supersede
-			  :direction :output)))
+			  :direction :output
+			  :external-format external-format)))
 	    
 	    (when error-file
 	      (setq error-file-stream
 		    (open (frob error-file "err")
 			  :if-exists :supersede
-			  :direction :output))))
+			  :direction :output
+			  :external-format external-format))))
 	  
 	  (setq *compiler-error-output*
 		(apply #'make-broadcast-stream