/[cmucl]/src/code/fd-stream.lisp
ViewVC logotype

Diff of /src/code/fd-stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.40.2.6 by pw, Fri Aug 25 09:54:20 2000 UTC revision 1.40.2.7 by dtc, Mon Oct 16 17:32:44 2000 UTC
# Line 1470  Line 1470 
1470          (make-fd-stream 1 :name "Standard Output" :output t :buffering :line))          (make-fd-stream 1 :name "Standard Output" :output t :buffering :line))
1471    (setf *stderr*    (setf *stderr*
1472          (make-fd-stream 2 :name "Standard Error" :output t :buffering :line))          (make-fd-stream 2 :name "Standard Error" :output t :buffering :line))
1473    (let ((tty (unix:unix-open "/dev/tty" unix:o_rdwr #o666)))    (let ((tty (and (not *batch-mode*)
1474      (if tty                    (unix:unix-open "/dev/tty" unix:o_rdwr #o666))))
1475          (setf *tty*      (setf *tty*
1476              (if tty
1477                (make-fd-stream tty :name "the Terminal" :input t :output t                (make-fd-stream tty :name "the Terminal" :input t :output t
1478                                :buffering :line :auto-close t))                                :buffering :line :auto-close t)
1479          (setf *tty* (make-two-way-stream *stdin* *stdout*))))                (make-two-way-stream *stdin* *stdout*))))
1480    nil)    nil)
1481    
1482    

Legend:
Removed from v.1.40.2.6  
changed lines
  Added in v.1.40.2.7

  ViewVC Help
Powered by ViewVC 1.1.5