From 1a712ca4ac77fae228669bdf971d6f225d1fa1dc Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Fri, 22 Jan 2010 06:17:13 +0000
Subject: [PATCH] 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.

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

diff --git a/compiler/main.lisp b/compiler/main.lisp
index f8cd6544a..2e9ba0a9e 100644
--- a/compiler/main.lisp
+++ b/compiler/main.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.147 2009/06/11 16:03:59 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.148 2010/01/22 06:17:13 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1828,13 +1828,15 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	      (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
-- 
GitLab