0.9.16.35:

[sbcl.git] / src / runtime / win32-os.c

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index 55117d7..1749966 100644 (file)
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -677,6 +677,27 @@ void scratch(void)
     GetExitCodeProcess(0, 0);
     GetCurrentProcess();
     GetProcessTimes(0, 0, 0, 0, 0);
+    #ifndef LISP_FEATURE_SB_UNICODE
+      SetEnvironmentVariableA(0, 0);
+    #else
+      SetEnvironmentVariableW(0, 0);
+    #endif
+    #ifndef LISP_FEATURE_SB_UNICODE
+      GetVersionExA(0);
+    #else
+      GetVersionExW(0);
+    #endif
+    #ifndef LISP_FEATURE_SB_UNICODE
+      GetComputerNameA(0, 0);
+    #else
+      GetComputerNameW(0, 0);
+    #endif
+    #ifndef LISP_FEATURE_SB_UNICODE
+      SetCurrentDirectoryA(0);
+    #else
+      SetCurrentDirectoryW(0);
+    #endif
+    CloseHandle(0);
 }
 
 char *