X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;h=fee0dd751dd324b1773dadee110b581a3eba5d25;hb=c712f88b26cd7547ee984b90e18c134401335bc3;hp=97d6d5503a24868008655d8fb24eabc365de8edc;hpb=a799c7b28e3590a00b2d915035649fc9b8ac737b;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 97d6d55..fee0dd7 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -145,7 +145,6 @@
   #+sb-doc
   "List of process structures for all active processes.")
 
-#-win32
 (defvar *active-processes-lock*
   (sb-thread:make-mutex :name "Lock for active processes."))
 
@@ -153,11 +152,8 @@
 ;;; mutex is needed. More importantly the sigchld signal handler also
 ;;; accesses it, that's why we need without-interrupts.
 (defmacro with-active-processes-lock (() &body body)
-  #-win32
   `(sb-thread::with-system-mutex (*active-processes-lock*)
-     ,@body)
-  #+win32
-  `(progn ,@body))
+     ,@body))
 
 (defstruct (process (:copier nil))
   pid                 ; PID of child process