Changeset 9850

Timestamp:

Jun 30, 2008, 11:12:19 AM (13 years ago)

Author:

gb

Message:

RUN-PROGRAM: check for :ERROR in external-process-%status.

File:

• branches/working-0711/ccl/level-1/linux-files.lisp (modified) (1 diff)

branches/working-0711/ccl/level-1/linux-files.lisp

@@ -985 +985 @@
         (with-interrupts-enabled
             (wait-on-semaphore (external-process-completed proc))))
-    (and (external-process-pid proc) proc)))
+      (if (eq (external-process-%status proc) :error)
+        (error "Fork failed in ~s: ~s" proc (%strerror (external-process-%exit-code proc))))
+      (and (external-process-pid proc)
+           proc)))