Changeset 9850


Ignore:
Timestamp:
Jun 30, 2008, 11:12:19 AM (11 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/linux-files.lisp

    r9829 r9850  
    985985        (with-interrupts-enabled
    986986            (wait-on-semaphore (external-process-completed proc))))
    987     (and (external-process-pid proc) proc)))
     987      (if (eq (external-process-%status proc) :error)
     988        (error "Fork failed in ~s: ~s" proc (%strerror (external-process-%exit-code proc))))
     989      (and (external-process-pid proc)
     990           proc)))
    988991
    989992
Note: See TracChangeset for help on using the changeset viewer.