Skip to content
Snippets Groups Projects
Commit 48af484e authored by pw's avatar pw
Browse files

Add defgeneric forms for stream-read-sequence and stream-write-sequence.

parent 98495f92
No related branches found
No related tags found
No related merge requests found
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;;; the Public domain, and is provided 'as is'. ;;; the Public domain, and is provided 'as is'.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -188,6 +188,10 @@
(defmethod stream-clear-input ((stream fundamental-character-input-stream)) (defmethod stream-clear-input ((stream fundamental-character-input-stream))
nil) nil)
(defgeneric stream-read-sequence (seq stream &optional start end)
(:documentation
"Implements READ-SEQUENCE for the stream."))
;;; Character output streams. ;;; Character output streams.
;;; ;;;
...@@ -319,6 +323,10 @@ ...@@ -319,6 +323,10 @@
(stream-write-char stream #\Space))) (stream-write-char stream #\Space)))
T))) T)))
(defgeneric stream-write-sequence (seq stream &optional start end)
(:documentation
"Implements WRITE-SEQUENCE for the stream."))
;;; Binary streams. ;;; Binary streams.
;;; ;;;
......
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