From: Nikodemus S. <de...@us...> - 2008-02-19 09:20:16
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sc8-pr-cvs8.sourceforge.net:/tmp/cvs-serv7158/src/code Modified Files: cold-init.lisp Log Message: 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. Index: cold-init.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/cold-init.lisp,v retrieving revision 1.75 retrieving revision 1.76 diff -u -d -r1.75 -r1.76 --- cold-init.lisp 10 Jan 2008 11:32:48 -0000 1.75 +++ cold-init.lisp 19 Feb 2008 09:20:11 -0000 1.76 @@ -291,6 +291,8 @@ (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. |