Skip to content
Snippets Groups Projects
Commit 818aa89a authored by dtc's avatar dtc
Browse files

Do not open /dev/tty when in batch mode.

parent 39985765
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment