From 1ca34904799faa74f6f663b97436070ae375da1c Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 19 Feb 2008 09:20:09 +0000 Subject: [PATCH] 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. --- NEWS | 3 +++ src/code/cold-init.lisp | 2 ++ version.lisp-expr | 2 +- 3 files changed, 6 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index 10c3bb2..e473069 100644 --- 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 --- 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 --- 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" -- 1.7.10.4