X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=d223e77dfa70e20f9e787b584fcf7cca75c8c180;hb=5d04a95274c9ddaebbcd6ddffc5d646e2c25598c;hp=9a59ddb9eee3ad31c92705fc194960430e570fbb;hpb=c9543b4f4d3915f4b21b4620bea574b8fafd1e30;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 9a59ddb..d223e77 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -154,7 +154,8 @@
 ;;; accesses it, that's why we need without-interrupts.
 (defmacro with-active-processes-lock (() &body body)
   #-win32
-  `(sb-thread::call-with-system-mutex (lambda () ,@body) *active-processes-lock*)
+  `(sb-thread::with-system-mutex (*active-processes-lock* :allow-with-interrupts t)
+     ,@body)
   #+win32
   `(progn ,@body))