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

Diff of /src/code/fd-stream.lisp

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

revision 1.73 by gerd, Mon Nov 3 16:50:28 2003 UTC revision 1.74 by gerd, Wed Nov 5 16:47:18 2003 UTC
# Line 355  Line 355 
355    (let ((start (or start 0))    (let ((start (or start 0))
356          (end (or end (length (the (simple-array * (*)) thing)))))          (end (or end (length (the (simple-array * (*)) thing)))))
357      (declare (type index start end))      (declare (type index start end))
358        ;;
359        ;; If there is any input read from UNIX but not
360        ;; supplied to the user of the stream, reposition
361        ;; to the real file position as seen from Lisp.
362        (when (> (fd-stream-ibuf-tail stream)
363                 (fd-stream-ibuf-head stream))
364          (file-position stream (file-position stream)))
365      (let* ((len (fd-stream-obuf-length stream))      (let* ((len (fd-stream-obuf-length stream))
366             (tail (fd-stream-obuf-tail stream))             (tail (fd-stream-obuf-tail stream))
367             (space (- len tail))             (space (- len tail))

Legend:
Removed from v.1.73  
changed lines
  Added in v.1.74

  ViewVC Help
Powered by ViewVC 1.1.5