1.0.6.36: ALLOW-WITH-INTERRUPTS and interrupt safe WITH-MUTEX &co

[sbcl.git] / src / code / target-signal.lisp

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index aaebc76..a59e730 100644 (file)
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -21,9 +21,7 @@
     ;; FIXME: Should we not reset the _entire_ mask, just restore it
     ;; to the state before we got the interrupt?
     (reset-signal-mask)
-    ;; Tell INTERRUPT-THREAD it's ok to re-enable interrupts.
-    (let ((*in-interruption* t))
-      (funcall function))))
+    (allow-with-interrupts (funcall function))))
 
 (defmacro in-interruption ((&rest args) &body body)
   #!+sb-doc