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