From: Gabor Melis <mega@hotpop.com>
Date: Mon, 27 Apr 2009 20:26:10 +0000 (+0000)
Subject: 1.0.27.47: fix RUN-PROGRAM on windows
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=4f82cd4c218dbaa287dd42a0833b05e7a8dd94d0;p=sbcl.git

1.0.27.47: fix RUN-PROGRAM on windows

Hopefully. There are mixed reports from users.
---

diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 04b5d6a..dbb16cc 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -759,7 +759,7 @@ Users Manual for details about the PROCESS structure."#-win32"
                                                   (if search 1 0)
                                                   environment-vec pty-name
                                                   (if wait 1 0))))
-                             (when (plusp child)
+                             (unless (= child -1)
                                (setf proc
                                      (apply
                                       #'make-process
diff --git a/version.lisp-expr b/version.lisp-expr
index f811532..722905a 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.27.46"
+"1.0.27.47"