X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-darwin-os.c;h=f1d7b6ce4b914e121a0628ea1d1816f81a165820;hb=bbbe40be1052fe7d46dacbfeb2e13041e5c9b293;hp=bb9212ed5c5b721bb06cef69acb11151b79b2013;hpb=540a673f3dcf4e4a3b6306275684565a8643c161;p=sbcl.git

diff --git a/src/runtime/x86-darwin-os.c b/src/runtime/x86-darwin-os.c
index bb9212e..f1d7b6c 100644
--- a/src/runtime/x86-darwin-os.c
+++ b/src/runtime/x86-darwin-os.c
@@ -374,6 +374,7 @@ void
 control_stack_exhausted_handler(int signal, siginfo_t *siginfo, void *void_context) {
     os_context_t *context = arch_os_get_context(&void_context);
 
+    unblock_signals_in_context_and_maybe_warn(context);
     arrange_return_to_lisp_function
         (context, StaticSymbolFunction(CONTROL_STACK_EXHAUSTED_ERROR));
 }