diff --git a/compiler/main.lisp b/compiler/main.lisp index f8cd6544aa6324e258890a0ff0cca6b4e5d47a6d..2e9ba0a9eaf03cfce7a213ed217b76169e6238fc 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