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

[Raymond Toy]

    Date: Tuesday, February 9, 2010 @ 23:25:46
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: save.lisp

Set locale on startup.


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


Index: src/code/save.lisp
diff -u src/code/save.lisp:1.65.4.3 src/code/save.lisp:1.65.4.4
--- src/code/save.lisp:1.65.4.3	Tue Feb  9 21:22:09 2010
+++ src/code/save.lisp	Tue Feb  9 23:25:46 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/save.lisp,v 1.65.4.3 2010-02-10 02:22:09 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/save.lisp,v 1.65.4.4 2010-02-10 04:25:46 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -234,6 +234,7 @@
 	     (reinit)
 	     (environment-init)
 	     (dolist (f *after-save-initializations*) (funcall f))
+	     (intl::setlocale)
 	     (when process-command-line
 	       (ext::process-command-strings))
 	     (setf *editor-lisp-p* nil)