/[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.58 by moore, Thu Dec 12 19:11:11 2002 UTC revision 1.59 by emarsden, Mon Mar 17 10:36:42 2003 UTC
# Line 261  Line 261 
261     File-Stream is open to.  If the second argument is supplied, then     File-Stream is open to.  If the second argument is supplied, then
262     this becomes the new file position.  The second argument may also     this becomes the new file position.  The second argument may also
263     be :start or :end for the start and end of the file, respectively."     be :start or :end for the start and end of the file, respectively."
264    (declare (stream stream)    (declare (type stream stream)
265             (type (or index (member nil :start :end)) position))             (type (or (integer 0) (member nil :start :end)) position))
266    (cond    (cond
267     (position     (position
268      (setf (lisp-stream-in-index stream) in-buffer-length)      (setf (lisp-stream-in-index stream) in-buffer-length)

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

  ViewVC Help
Powered by ViewVC 1.1.5