diff --git a/code/run-program.lisp b/code/run-program.lisp index f0f77f5913e1275eeb4be54b08bfe57d0846915d..6f8842b266b269678b3c891964e8c95efd03b4b4 100644 --- a/code/run-program.lisp +++ b/code/run-program.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/run-program.lisp,v 1.6 1991/09/25 15:13:47 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/run-program.lisp,v 1.7 1991/09/27 10:24:58 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -272,7 +272,7 @@ (setf (system:alien-access (mach::sgtty-flags (system:alien-value stuff))) - #o6300) ; XTABS|EVENP|ODDP + #o300) ; EVENP|ODDP (mach:unix-ioctl slave-fd mach:TIOCSETP sap) (mach:unix-ioctl master-fd mach:TIOCGETP sap) (setf (system:alien-access