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