CMUCL commit: src/compiler (main.lisp)

[Raymond Toy]

    Date: Wednesday, September 15, 2010 @ 11:47:29
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler

Modified: main.lisp

Canonicalize the external-format name when create the source-info for
a file.  In particular this converts :default to the actual format
instead of leaving it as :default.  This means when the file is later
opened for source-info, the actual format is used instead of whatever
the default format is at the time.


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


Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.157 src/compiler/main.lisp:1.158
--- src/compiler/main.lisp:1.157	Tue Jun  1 16:27:09 2010
+++ src/compiler/main.lisp	Wed Sep 15 11:47:29 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.157 2010-06-01 20:27:09 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.158 2010-09-15 15:47:29 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -738,7 +738,8 @@
     (make-source-info :files file-info
 		      :current-file file-info
 		      #+unicode :external-format
-		      #+unicode external-format)))
+		      #+unicode (stream::ef-name
+				 (stream::find-external-format external-format)))))
 
 
 ;;; MAKE-LISP-SOURCE-INFO  --  Interface