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