From 48af484ea2ad720cf2a4bc14bfdce0b244b66815 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Sun, 28 Oct 2001 14:38:07 +0000 Subject: [PATCH] Add defgeneric forms for stream-read-sequence and stream-write-sequence. --- pcl/gray-streams.lisp | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/pcl/gray-streams.lisp b/pcl/gray-streams.lisp index b6957625e..9baf7b18b 100644 --- a/pcl/gray-streams.lisp +++ b/pcl/gray-streams.lisp @@ -4,7 +4,7 @@ ;;; the Public domain, and is provided 'as is'. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.4 2001/03/27 20:26:28 pw Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.5 2001/10/28 14:38:07 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -188,6 +188,10 @@ (defmethod stream-clear-input ((stream fundamental-character-input-stream)) nil) +(defgeneric stream-read-sequence (seq stream &optional start end) + (:documentation + "Implements READ-SEQUENCE for the stream.")) + ;;; Character output streams. ;;; @@ -319,6 +323,10 @@ (stream-write-char stream #\Space))) T))) +(defgeneric stream-write-sequence (seq stream &optional start end) + (:documentation + "Implements WRITE-SEQUENCE for the stream.")) + ;;; Binary streams. ;;; -- GitLab