diff --git a/code/stream.lisp b/code/stream.lisp index 2ecd54c109749e3b0b29399a80e772dd7f028d43..83291d8f4cea4e074737a182ea1a14ab74e2a047 100644 --- a/code/stream.lisp +++ b/code/stream.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.85 2009/06/16 21:25:02 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/stream.lisp,v 1.86 2009/07/17 15:25:10 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2087,23 +2087,24 @@ output to Output-stream" (defun read-sequence (seq stream &key (start 0) (end nil) partial-fill) "Destructively modify SEQ by reading elements from STREAM. -SEQ is bounded by START and END. SEQ is destructively modified by -copying successive elements into it from STREAM. If the end of file -for STREAM is reached before copying all elements of the subsequence, -then the extra elements near the end of sequence are not updated. - -Argument(s): -SEQ: a proper SEQUENCE -STREAM: an input STREAM -START: a bounding index designator of type '(INTEGER 0 *)' (default 0) -END: a bounding index designator which be NIL or an INTEGER of - type '(INTEGER 0 *)' (default NIL) - -Value(s): -POSITION: an INTEGER greater than or equal to zero, and less than or - equal to the length of the SEQ. POSITION is the index of - the first element of SEQ that was not updated, which might be - less than END because the end of file was reached." + + Seq is bounded by Start and End. Seq is destructively modified by + copying successive elements into it from Stream. If the end of file + for Stream is reached before copying all elements of the subsequence, + then the extra elements near the end of sequence are not updated. + + Argument(s): + SEQ: a proper SEQUENCE + STREAM: an input STREAM + START: a bounding index designator of type '(INTEGER 0 *)' (default 0) + END: a bounding index designator which be NIL or an INTEGER of + type '(INTEGER 0 *)' (default NIL) + + Value(s): + POSITION: an INTEGER greater than or equal to zero, and less than or + equal to the length of the SEQ. POSITION is the index of + the first element of SEQ that was not updated, which might be + less than END because the end of file was reached." (declare (type (or list vector) seq)) ; could be (type sequence seq) (declare (type stream stream)) @@ -2453,16 +2454,17 @@ POSITION: an INTEGER greater than or equal to zero, and less than or ;;; will always puzzle me. (defun write-sequence (seq stream &key (start 0) (end nil)) - "Writes the elements of the of SEQ bounded by START and END to STREAM. -Argument(s): -SEQ: a proper SEQUENCE -STREAM: an output STREAM -START: a bounding index designator of type '(INTEGER 0 *)' (default 0) -END: a bounding index designator which be NIL or an INTEGER of - type '(INTEGER 0 *)' (default NIL) - -Value(s): -SEQ: a proper SEQUENCE + "Writes the elements of the Seq bounded by Start and End to Stream. + + Argument(s): + SEQ: a proper SEQUENCE + STREAM: an output STREAM + START: a bounding index designator of type '(INTEGER 0 *)' (default 0) + END: a bounding index designator which be NIL or an INTEGER of + type '(INTEGER 0 *)' (default NIL) + + Value(s): + SEQ: a proper SEQUENCE " (declare (type (or list vector) seq)) (declare (type stream stream))