/[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.14 by wlott, Fri Feb 4 15:10:46 1994 UTC revision 1.14.1.1 by ram, Wed Oct 19 23:24:04 1994 UTC
# Line 35  Line 35 
35    (options c-call:int)    (options c-call:int)
36    (rusage c-call:int))    (rusage c-call:int))
37    
38  (eval-when (load eval compile)  ;(eval-when (load eval compile)
39    (defconstant wait-wstopped #o177)    (defconstant wait-wstopped #o177)
40      #-svr4
41    (defconstant wait-wnohang 1)    (defconstant wait-wnohang 1)
42    (defconstant wait-wuntraced 2))    #+svr4
43      (defconstant wait-wnohang #o100)
44      #-svr4
45      (defconstant wait-wuntraced 2)
46      #+svr4
47      (defconstant wait-wuntraced 4)
48    ;)
49    
50  (defun wait3 (&optional do-not-hang check-for-stopped)  (defun wait3 (&optional do-not-hang check-for-stopped)
51    "Return any available status information on child processed. "    "Return any available status information on child processed. "

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.14.1.1

  ViewVC Help
Powered by ViewVC 1.1.5