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

Flip args to stream-*-sequence to be (stream sequence) so we agree with

the rest of the world. Noticed by Ray.
parent 61036219
No related branches found
No related tags found
No related merge requests found
......@@ -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.5 2001/10/28 14:38:07 pw Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/gray-streams.lisp,v 1.6 2001/11/20 15:10:04 pw Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -188,7 +188,7 @@
(defmethod stream-clear-input ((stream fundamental-character-input-stream))
nil)
(defgeneric stream-read-sequence (seq stream &optional start end)
(defgeneric stream-read-sequence (stream seq &optional start end)
(:documentation
"Implements READ-SEQUENCE for the stream."))
......@@ -323,7 +323,7 @@
(stream-write-char stream #\Space)))
T)))
(defgeneric stream-write-sequence (seq stream &optional start end)
(defgeneric stream-write-sequence (stream seq &optional start end)
(:documentation
"Implements WRITE-SEQUENCE for the stream."))
......
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