X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fthread.c;h=bedab334c9d75a465848b72f26ff21f4b2299ec8;hb=6cb4f9ea3f4e35a5a8e75922833e14575ae92180;hp=8d3d36a6e6887e55b08168d245e2fb931815289b;hpb=7fb597b585fc715537ea644f7d84440eca217ca1;p=sbcl.git

diff --git a/src/runtime/thread.c b/src/runtime/thread.c
index 8d3d36a..bedab33 100644
--- a/src/runtime/thread.c
+++ b/src/runtime/thread.c
@@ -103,7 +103,9 @@ initial_thread_trampoline(struct thread *th)
     if(arch_os_thread_init(th)==0) return 1;
     link_thread(th);
     th->os_thread=thread_self();
+#ifndef LISP_FEATURE_WIN32
     protect_control_stack_guard_page(1);
+#endif
 
 #if defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64)
     return call_into_lisp_first_time(function,args,0);