X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Fwin32-os.c;h=0073c60d3f0fb6f9a0819d1cc6062bea3c35c336;hb=e0f344219fe6cd5329aae9fc343466bcd71d4edf;hp=4af0f790fdeb5af86a5ed0db52eafb613a7dfbaf;hpb=76237af144bef52bc2e391c90970a1747cdf0a9e;p=sbcl.git

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 4af0f79..0073c60 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -639,6 +639,10 @@ void scratch(void)
     FlushConsoleInputBuffer(0);
     PeekConsoleInput(0, 0, 0, 0);
     Sleep(0);
+    GetACP();
+    GetOEMCP();
+    GetConsoleCP();
+    GetConsoleOutputCP();
 }
 
 char *