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