From 040749f5d31fede4514b8d9c01932d265fc86e71 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 10 Dec 1992 01:09:52 +0000 Subject: [PATCH] Export FILE-STREAM from LISP as a synonym for FD-STREAM. Add :INTERACTIVE-P misc method. --- code/fd-stream.lisp | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/code/fd-stream.lisp b/code/fd-stream.lisp index f0994e92e..2f065e02a 100644 --- a/code/fd-stream.lisp +++ b/code/fd-stream.lisp @@ -7,7 +7,7 @@ ;;; 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.21 1992/03/09 20:17:39 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/fd-stream.lisp,v 1.22 1992/12/10 01:09:52 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -33,6 +33,9 @@ (in-package "LISP") +(export '(file-stream)) +(deftype file-stream () 'fd-stream) + ;;;; Buffer manipulation routines. @@ -1011,6 +1014,8 @@ non-server method is also significantly more efficient for large reads. (system:serve-all-events))) (:element-type (fd-stream-element-type stream)) + (:interactive-p + (unix:unix-isatty (fd-stream-fd stream))) (:line-length 80) (:charpos -- GitLab