diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index d40686477b0e14fd126b36218d2624463d837576..51d898346bd9c02e1facf6a9f4d3b5bb99075ff8 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -1,5 +1,5 @@ ;;; -*- Log: code.log; Package: LISP -*- - +;;; ;;; ********************************************************************** ;;; This code was written as part of the CMU Common Lisp project at ;;; Carnegie Mellon University, and has been placed in the public domain. @@ -7,12 +7,10 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.10 1991/02/08 13:32:31 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.11 1991/05/18 13:38:36 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.10 1991/02/08 13:32:31 ram Exp $ -;;; ;;; Streams for UNIX file descriptors. ;;; ;;; Written by William Lott, July 1989 - January 1990. @@ -1081,7 +1079,6 @@ (:probe (values t nil mach:o_rdonly))) (let* ((pathname (pathname filename)) (namestring (unix-namestring pathname input))) - ;; Process if-exists argument if we are doing any output. (cond (output (unless if-exists-given @@ -1244,8 +1241,10 @@ (defun stream-init () (stream-reinit) (setf *terminal-io* (make-synonym-stream '*tty*)) - (setf *standard-input* (make-synonym-stream '*stdin*)) (setf *standard-output* (make-synonym-stream '*stdout*)) + (setf *standard-input* + (make-two-way-stream (make-synonym-stream '*stdin*) + *standard-output*)) (setf *error-output* (make-synonym-stream '*stderr*)) (setf *query-io* (make-synonym-stream '*terminal-io*)) (setf *debug-io* *query-io*)