From 603858d90610203e6544e33673ac6377a1f359c7 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Sat, 18 May 1991 13:38:36 +0000
Subject: [PATCH] Merged with systems-work sources.  The only change was to
 make *standard-output* a two-way stream so that reading *standard-input* will
 force output on standard output.

---
 code/fd-stream.lisp | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp
index d40686477..51d898346 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*)
-- 
GitLab