CMUCL commit: intl-branch src/bootfiles/20a (boot-2010-02-1.lisp)

[Raymond Toy]

    Date: Tuesday, February 9, 2010 @ 22:56:31
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/bootfiles/20a
     Tag: intl-branch

Modified: boot-2010-02-1.lisp

Oops.  Define *environment-list-initialized* before we compile
intl.lisp.


---------------------+
 boot-2010-02-1.lisp |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)


Index: src/bootfiles/20a/boot-2010-02-1.lisp
diff -u src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.3 src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.4
--- src/bootfiles/20a/boot-2010-02-1.lisp:1.1.2.3	Tue Feb  9 18:40:35 2010
+++ src/bootfiles/20a/boot-2010-02-1.lisp	Tue Feb  9 22:56:31 2010
@@ -1,4 +1,7 @@
 ;; Bootstrap file for adding support for localization.
+
+(defvar lisp::*environment-list-initialized* nil)
+
 (defpackage "INTL"
   (:use "COMMON-LISP")
   (:export "SETLOCALE" "TEXTDOMAIN" "GETTEXT" "DGETTEXT" "NGETTEXT" "DNGETTEXT"
@@ -19,4 +22,3 @@
 (define-info-type typed-structure textdomain (or string null) nil)
 (define-info-type setf textdomain (or string null) nil)
 
-(defvar lisp::*environment-list-initialized* nil)
\ No newline at end of file