Safepoint protocol upgrade

[sbcl.git] / src / runtime / interrupt.c

diff --git a/src/runtime/interrupt.c b/src/runtime/interrupt.c
index 9b82a58..132e9b2 100644 (file)
--- a/src/runtime/interrupt.c
+++ b/src/runtime/interrupt.c
@@ -944,7 +944,7 @@ interrupt_handle_pending(os_context_t *context)
             sigset_t old, *ctxset = os_context_sigmask_addr(context);
             unblock_signals(&deferrable_sigset, ctxset, &old);
 #endif
-            thread_pitstop(context);
+            thread_in_lisp_raised(context);
 #ifndef LISP_FEATURE_WIN32
             sigcopyset(&old, ctxset);
 #endif