/[cmucl]/src/code/run-program.lisp
ViewVC logotype

Diff of /src/code/run-program.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by wlott, Fri Feb 14 23:45:25 1992 UTC revision 1.9 by wlott, Sat Feb 15 12:50:37 1992 UTC
# Line 164  Line 164 
164        (cond ((not okay)        (cond ((not okay)
165               (values nil errno))               (values nil errno))
166              ((and (eql pid (process-pid proc))              ((and (eql pid (process-pid proc))
167                    (= (unix-signal-number signal) unix:sigcont))                    (= (unix:unix-signal-number signal) unix:sigcont))
168               (setf (process-%status proc) :running)               (setf (process-%status proc) :running)
169               (setf (process-exit-code proc) nil)               (setf (process-exit-code proc) nil)
170               (when (process-status-hook proc)               (when (process-status-hook proc)

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5