Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/lisp/runprog.c
    ... ... @@ -107,8 +107,7 @@ prog_status(pid_t* pid, int* what, int* code, int* corep)
    107 107
         w = waitpid(-1, &status, WNOHANG | WUNTRACED | WCONTINUED);
    
    108 108
         *pid = w;
    
    109 109
     
    
    110
    -    if (w == -1) {
    
    111
    -        
    
    110
    +    if (w <= 0) {
    
    112 111
             return;
    
    113 112
         }
    
    114 113
     
    
    ... ... @@ -129,7 +128,7 @@ prog_status(pid_t* pid, int* what, int* code, int* corep)
    129 128
             *code = 0;
    
    130 129
             *corep = 0;
    
    131 130
         } else {
    
    132
    -        fprintf(stderr, "pid = %d, status = 0x%x\n", *pid, status);
    
    131
    +        fprintf(stderr, "Unhandled waidpid status: pid = %d, status = 0x%x\n", *pid, status);
    
    133 132
         }
    
    134 133
     
    
    135 134
         return;