X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Finterr.c;h=f7da2d3670b32bf839fa579e796f55cfc6b7b349;hb=1b32a547d26cf078ba9f2948edeb27ff91e78f49;hp=c13be451c9270b6c3bb74f64aa21e1947e9526e2;hpb=f6fb4d990ff434408cd6808c244255b4a301eb23;p=sbcl.git

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index c13be45..f7da2d3 100644
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -95,8 +95,10 @@ void
 corruption_warning_and_maybe_lose(char *fmt, ...)
 {
     va_list ap;
+#ifndef LISP_FEATURE_WIN32
     sigset_t oldset;
     thread_sigmask(SIG_BLOCK, &blockable_sigset, &oldset);
+#endif
     fprintf(stderr, "CORRUPTION WARNING");
     va_start(ap, fmt);
     print_message(fmt, ap);
@@ -109,8 +111,10 @@ corruption_warning_and_maybe_lose(char *fmt, ...)
     fflush(stderr);
     if (lose_on_corruption_p)
         call_lossage_handler();
+#ifndef LISP_FEATURE_WIN32
     else
         thread_sigmask(SIG_SETMASK,&oldset,0);
+#endif
 }
 
 /* internal error handler for when the Lisp error system doesn't exist