1.0.14.37: detect the Windows codepage at runtime

 * Using the value from the saved core is wrong. Fix by Suzuki Kei on
   sbcl-devel.

diff --git a/NEWS b/NEWS
index 10c3bb2..e473069 100644 (file)
--- a/NEWS
+++ b/NEWS
@@ -33,6 +33,9 @@ changes in sbcl-1.0.15 relative to sbcl-1.0.14:
     obsoletion of a superclass.  (thanks to Andy Hefner)
   * bug fix: Support for the Alpha architecture has been revived; it had
     suffered somewhat from lack of maintenance since sbcl-1.0.
+  * improvements to the Windows port:
+     ** The system detects the codepage to use at startup, instead of
+        using the value from the saved core. (thanks to Kei Suzuki)
 
 changes in sbcl-1.0.14 relative to sbcl-1.0.13:
   * new feature: SB-EXT:*EXIT-HOOKS* are called when the process exits

diff --git a/src/code/cold-init.lisp b/src/code/cold-init.lisp
index f0c780a..c5ee9f2 100644 (file)
--- a/src/code/cold-init.lisp
+++ b/src/code/cold-init.lisp
@@ -291,6 +291,8 @@ systems, UNIX-STATUS is used as the status code."
   (sb!thread::get-foreground))
 
 (defun reinit ()
+  #!+win32
+  (setf sb!win32::*ansi-codepage* nil)
   (setf *default-external-format* nil)
   (setf sb!alien::*default-c-string-external-format* nil)
   ;; WITHOUT-GCING implies WITHOUT-INTERRUPTS.

diff --git a/version.lisp-expr b/version.lisp-expr
index eb8296e..470135b 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.14.36"
+"1.0.14.37"