X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Frun-program.lisp;fp=src%2Fcode%2Frun-program.lisp;h=daebefececc054af3f29c39b275db704ca8c82a4;hb=33b3b129c1c895c9583494dc75455f56c83ad748;hp=512a7a9ac9f81e0fb498a3e280edcf004451c66a;hpb=d7952c5aacc3ec295e148cdf1d24eec3f6509e81;p=sbcl.git

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 512a7a9..daebefe 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -899,6 +899,7 @@ Users Manual for details about the PROCESS structure."#-win32"
                     (t
                      (incf read-end count)
                      (funcall copy-fun))))))))
+    #-win32
     (push handler *handlers-installed*)))
 
 ;;; FIXME: something very like this is done in SB-POSIX to treat