/[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.19 by ram, Thu Jul 25 14:58:45 1996 UTC revision 1.20 by ram, Thu Jul 25 20:38:57 1996 UTC
# Line 162  Line 162 
162      (multiple-value-bind      (multiple-value-bind
163          (okay errno)          (okay errno)
164          (case whom          (case whom
165            (:pty-process-group            ((#+hpux :pty-process-group)
            #+hpux  
166             (unix:unix-ioctl (system:fd-stream-fd (process-pty proc))             (unix:unix-ioctl (system:fd-stream-fd (process-pty proc))
167                              unix:TIOCSIGSEND                              unix:TIOCSIGSEND
168                              (system:int-sap                              (system:int-sap
169                               (unix:unix-signal-number signal)))                               (unix:unix-signal-number signal))))
170             #-hpux            ((:process-group #-hpux :pty-process-group)
171             (unix:unix-killpg pid signal))             (unix:unix-killpg pid signal))
172            (t            (t
173             (unix:unix-kill pid signal)))             (unix:unix-kill pid signal)))

Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20

  ViewVC Help
Powered by ViewVC 1.1.5