CMUCL commit: src/compiler (main.lisp)

[Raymond Toy]

    Date: Saturday, April 3, 2010 @ 14:40:49
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler

Modified: main.lisp

Bind intl::*default-domain* so that changes to intl::*default-domain*
in the compiled file don't change it. 


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


Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.153 src/compiler/main.lisp:1.154
--- src/compiler/main.lisp:1.153	Fri Mar 19 11:19:01 2010
+++ src/compiler/main.lisp	Sat Apr  3 14:40:48 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.153 2010-03-19 15:19:01 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.154 2010-04-03 18:40:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1597,7 +1597,8 @@
 	   (*info-environment*
 	    (or (backend-info-environment *backend*)
 		*info-environment*))
-	   (*gensym-counter* 0))
+	   (*gensym-counter* 0)
+	   (intl::*default-domain* intl::*default-domain*))
       (with-debug-counters
 	(clear-stuff)
 	(with-compilation-unit ()