From e87367e4c1be32fb17680fb3ed5f90d831339933 Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Tue, 20 Nov 2001 15:10:04 +0000 Subject: [PATCH] Flip args to stream-*-sequence to be (stream sequence) so we agree with the rest of the world. Noticed by Ray. --- pcl/gray-streams.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/pcl/gray-streams.lisp b/pcl/gray-streams.lisp index 9baf7b18b..8da7ae279 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.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.")) -- GitLab