diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index 2448e1dcb83f27c1614d9702f18eb50ee4044655..0c6683784c3590e2692e15d05cd4b1b3bd7a72c8 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.53 2000/08/25 09:53:47 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.54 2000/10/16 17:30:34 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1470,12 +1470,13 @@ (make-fd-stream 1 :name "Standard Output" :output t :buffering :line)) (setf *stderr* (make-fd-stream 2 :name "Standard Error" :output t :buffering :line)) - (let ((tty (unix:unix-open "/dev/tty" unix:o_rdwr #o666))) - (if tty - (setf *tty* + (let ((tty (and (not *batch-mode*) + (unix:unix-open "/dev/tty" unix:o_rdwr #o666)))) + (setf *tty* + (if tty (make-fd-stream tty :name "the Terminal" :input t :output t - :buffering :line :auto-close t)) - (setf *tty* (make-two-way-stream *stdin* *stdout*)))) + :buffering :line :auto-close t) + (make-two-way-stream *stdin* *stdout*)))) nil)