Skip to content
Snippets Groups Projects
Commit 603858d9 authored by ram's avatar ram
Browse files

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.
parent a2226853
No related branches found
No related tags found
No related merge requests found
;;; -*- Log: code.log; Package: LISP -*- ;;; -*- Log: code.log; Package: LISP -*-
;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; This code was written as part of the CMU Common Lisp project at ;;; This code was written as part of the CMU Common Lisp project at
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
...@@ -7,12 +7,10 @@ ...@@ -7,12 +7,10 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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. ;;; Streams for UNIX file descriptors.
;;; ;;;
;;; Written by William Lott, July 1989 - January 1990. ;;; Written by William Lott, July 1989 - January 1990.
...@@ -1081,7 +1079,6 @@ ...@@ -1081,7 +1079,6 @@
(:probe (values t nil mach:o_rdonly))) (:probe (values t nil mach:o_rdonly)))
(let* ((pathname (pathname filename)) (let* ((pathname (pathname filename))
(namestring (unix-namestring pathname input))) (namestring (unix-namestring pathname input)))
;; Process if-exists argument if we are doing any output. ;; Process if-exists argument if we are doing any output.
(cond (output (cond (output
(unless if-exists-given (unless if-exists-given
...@@ -1244,8 +1241,10 @@ ...@@ -1244,8 +1241,10 @@
(defun stream-init () (defun stream-init ()
(stream-reinit) (stream-reinit)
(setf *terminal-io* (make-synonym-stream '*tty*)) (setf *terminal-io* (make-synonym-stream '*tty*))
(setf *standard-input* (make-synonym-stream '*stdin*))
(setf *standard-output* (make-synonym-stream '*stdout*)) (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 *error-output* (make-synonym-stream '*stderr*))
(setf *query-io* (make-synonym-stream '*terminal-io*)) (setf *query-io* (make-synonym-stream '*terminal-io*))
(setf *debug-io* *query-io*) (setf *debug-io* *query-io*)
......
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