/[cmucl]/src/code/stream.lisp
ViewVC logotype

Diff of /src/code/stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.85 by rtoy, Tue Jun 16 21:25:02 2009 UTC revision 1.86 by rtoy, Fri Jul 17 15:25:10 2009 UTC
# Line 2087  output to Output-stream" Line 2087  output to Output-stream"
2087    
2088  (defun read-sequence (seq stream &key (start 0) (end nil) partial-fill)  (defun read-sequence (seq stream &key (start 0) (end nil) partial-fill)
2089    "Destructively modify SEQ by reading elements from STREAM.    "Destructively modify SEQ by reading elements from STREAM.
2090  SEQ is bounded by START and END. SEQ is destructively modified by  
2091  copying successive elements into it from STREAM. If the end of file    Seq is bounded by Start and End. Seq is destructively modified by
2092  for STREAM is reached before copying all elements of the subsequence,    copying successive elements into it from Stream. If the end of file
2093  then the extra elements near the end of sequence are not updated.    for Stream is reached before copying all elements of the subsequence,
2094      then the extra elements near the end of sequence are not updated.
2095  Argument(s):  
2096  SEQ:    a proper SEQUENCE    Argument(s):
2097  STREAM: an input STREAM    SEQ:      a proper SEQUENCE
2098  START:  a bounding index designator of type '(INTEGER 0 *)' (default 0)    STREAM:   an input STREAM
2099  END:    a bounding index designator which be NIL or an INTEGER of    START:    a bounding index designator of type '(INTEGER 0 *)' (default 0)
2100          type '(INTEGER 0 *)' (default NIL)    END:      a bounding index designator which be NIL or an INTEGER of
2101                type '(INTEGER 0 *)' (default NIL)
2102  Value(s):  
2103  POSITION: an INTEGER greater than or equal to zero, and less than or    Value(s):
2104            equal to the length of the SEQ. POSITION is the index of    POSITION: an INTEGER greater than or equal to zero, and less than or
2105            the first element of SEQ that was not updated, which might be              equal to the length of the SEQ. POSITION is the index of
2106            less than END because the end of file was reached."              the first element of SEQ that was not updated, which might be
2107                less than END because the end of file was reached."
2108    
2109    (declare (type (or list vector) seq)) ; could be (type sequence seq)    (declare (type (or list vector) seq)) ; could be (type sequence seq)
2110    (declare (type stream stream))    (declare (type stream stream))
# Line 2453  POSITION: an INTEGER greater than or equ Line 2454  POSITION: an INTEGER greater than or equ
2454  ;;; will always puzzle me.  ;;; will always puzzle me.
2455    
2456  (defun write-sequence (seq stream &key (start 0) (end nil))  (defun write-sequence (seq stream &key (start 0) (end nil))
2457    "Writes the elements of the of SEQ bounded by START and END to STREAM.    "Writes the elements of the Seq bounded by Start and End to Stream.
2458  Argument(s):  
2459  SEQ:    a proper SEQUENCE    Argument(s):
2460  STREAM: an output STREAM    SEQ:     a proper SEQUENCE
2461  START:  a bounding index designator of type '(INTEGER 0 *)' (default 0)    STREAM:  an output STREAM
2462  END:    a bounding index designator which be NIL or an INTEGER of    START:   a bounding index designator of type '(INTEGER 0 *)' (default 0)
2463          type '(INTEGER 0 *)' (default NIL)    END:     a bounding index designator which be NIL or an INTEGER of
2464               type '(INTEGER 0 *)' (default NIL)
2465    
2466  Value(s):    Value(s):
2467  SEQ:    a proper SEQUENCE    SEQ:  a proper SEQUENCE
2468  "  "
2469    (declare (type (or list vector) seq))    (declare (type (or list vector) seq))
2470    (declare (type stream stream))    (declare (type stream stream))

Legend:
Removed from v.1.85  
changed lines
  Added in v.1.86

  ViewVC Help
Powered by ViewVC 1.1.5