X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Frun-program.c;h=4e6f829aa057cdd5641bc86223ac1880816d607d;hb=aecefb5d1dfdab6b004796c8b0b48fd2ab6643df;hp=7377e7fccf3674a00d07ca9794438df33c355bb1;hpb=6cfdd9e66519b513e0935c410fbb30fc880efb61;p=sbcl.git

diff --git a/src/runtime/run-program.c b/src/runtime/run-program.c
index 7377e7f..4e6f829 100644
--- a/src/runtime/run-program.c
+++ b/src/runtime/run-program.c
@@ -140,7 +140,9 @@ int spawn(char *program, char *argv[], int sin, int sout, int serr,
             }
             if (child_errno) {
                 waitpid(pid, NULL, 0);
-                pid = 0;
+                /* Our convention to tell Lisp that it was the exec that
+                 * failed, not the fork. */
+                pid = -2;
                 errno = child_errno;
             }
         }