/[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.22 by pw, Thu Mar 13 22:19:02 1997 UTC revision 1.22.2.1 by pw, Tue Jun 23 11:22:25 1998 UTC
# Line 276  Line 276 
276                                             #o666)))                                             #o666)))
277              (when slave-fd              (when slave-fd
278                ; Maybe put a vhangup here?                ; Maybe put a vhangup here?
279                  #-glibc2
280                (alien:with-alien ((stuff (alien:struct unix:sgttyb)))                (alien:with-alien ((stuff (alien:struct unix:sgttyb)))
281                  (let ((sap (alien:alien-sap stuff)))                  (let ((sap (alien:alien-sap stuff)))
282                    (unix:unix-ioctl slave-fd unix:TIOCGETP sap)                    (unix:unix-ioctl slave-fd unix:TIOCGETP sap)
# Line 309  Line 310 
310             (slave-fd (unix:unix-open slave-name unix:o_rdwr #o666)))             (slave-fd (unix:unix-open slave-name unix:o_rdwr #o666)))
311        (when slave-fd        (when slave-fd
312          ; Maybe put a vhangup here?          ; Maybe put a vhangup here?
313            #-glibc2
314          (alien:with-alien ((stuff (alien:struct unix:sgttyb)))          (alien:with-alien ((stuff (alien:struct unix:sgttyb)))
315            (let ((sap (alien:alien-sap stuff)))            (let ((sap (alien:alien-sap stuff)))
316              (unix:unix-ioctl slave-fd unix:TIOCGETP sap)              (unix:unix-ioctl slave-fd unix:TIOCGETP sap)

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.22.2.1

  ViewVC Help
Powered by ViewVC 1.1.5