CMUCL commit: intl-branch src/code (lispinit.lisp)

[Raymond Toy]

    Date: Thursday, February 11, 2010 @ 19:37:34
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: lispinit.lisp

Initialize *locale* early, just in case.


---------------+
 lispinit.lisp |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)


Index: src/code/lispinit.lisp
diff -u src/code/lispinit.lisp:1.79.12.3 src/code/lispinit.lisp:1.79.12.4
--- src/code/lispinit.lisp:1.79.12.3	Wed Feb 10 09:07:36 2010
+++ src/code/lispinit.lisp	Thu Feb 11 19:37:34 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/lispinit.lisp,v 1.79.12.3 2010-02-10 14:07:36 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/lispinit.lisp,v 1.79.12.4 2010-02-12 00:37:34 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -341,6 +341,7 @@
   (setf unix::*filename-encoding* nil)
   #+gengc (setf conditions::*handler-clusters* nil)
   (setq intl::*default-domain* "cmucl")
+  (setq intl::*locale* "C")
 
   ;; Many top-level forms call INFO, (SETF INFO).
   (print-and-call c::globaldb-init)