From ba4218b83ef24430fa438c76eb880aa84cd33718 Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Sat, 3 Apr 2010 18:40:48 +0000
Subject: [PATCH] Bind intl::*default-domain* so that changes to
 intl::*default-domain* in the compiled file don't change it.

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

diff --git a/compiler/main.lisp b/compiler/main.lisp
index c752bb839..ead839751 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.153 2010/03/19 15:19:01 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.154 2010/04/03 18:40:48 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1597,7 +1597,8 @@ in the user USER-INFO slot of STREAM-SOURCE-LOCATIONs.")
 	   (*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 ()
-- 
GitLab