X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=5c4f9fc229ce023d87850aa1c5033fffc7849cb7;hb=c1aa8b6b5b870f21bc8c81da85708e9d71d4eb93;hp=ea4fe4c97a47dbdacbd54ac953db925df7f1c605;hpb=a7674bbb13b5bc6737b147f844a6840912e639c0;p=sbcl.git

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