From: David Lichteblau <david@lichteblau.com>
Date: Fri, 26 Oct 2012 17:35:17 +0000 (+0200)
Subject: Fix the single-threaded Windows build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=6631ac64bee62095049e4eaff68dee79c3fc9499;p=sbcl.git

Fix the single-threaded Windows build

For this release, we purport to support Windows without threads as
an option.  Make it so.
---

diff --git a/src/runtime/win32-os.c b/src/runtime/win32-os.c
index f27f5ed..5aa33f7 100644
--- a/src/runtime/win32-os.c
+++ b/src/runtime/win32-os.c
@@ -54,6 +54,7 @@
 #include <float.h>
 
 #include <excpt.h>
+#include <errno.h>
 
 #include "validate.h"
 #include "thread.h"
@@ -1304,6 +1305,7 @@ void scratch(void)
     UnmapViewOfFile(0);
     FlushViewOfFile(0,0);
     SetFilePointerEx(0, la, 0, 0);
+    DuplicateHandle(0, 0, 0, 0, 0, 0, 0);
     #ifndef LISP_FEATURE_SB_UNICODE
       CreateDirectoryA(0,0);
       CreateFileMappingA(0,0,0,0,0,0);