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

diff --git a/src/runtime/interr.c b/src/runtime/interr.c
index f7da2d3..3b0a882 100644
--- a/src/runtime/interr.c
+++ b/src/runtime/interr.c
@@ -79,7 +79,7 @@ lose(char *fmt, ...)
     va_list ap;
     /* Block signals to prevent other threads, timers and such from
      * interfering. If only all threads could be stopped somehow. */
-    block_blockable_signals();
+    block_blockable_signals(0, 0);
     fprintf(stderr, "fatal error encountered");
     va_start(ap, fmt);
     print_message(fmt, ap);
@@ -97,7 +97,7 @@ corruption_warning_and_maybe_lose(char *fmt, ...)
     va_list ap;
 #ifndef LISP_FEATURE_WIN32
     sigset_t oldset;
-    thread_sigmask(SIG_BLOCK, &blockable_sigset, &oldset);
+    block_blockable_signals(0, &oldset);
 #endif
     fprintf(stderr, "CORRUPTION WARNING");
     va_start(ap, fmt);