Changeset 9731


Ignore:
Timestamp:
Jun 11, 2008, 6:46:01 AM (11 years ago)
Author:
gb
Message:

(in trunk)
Remove duplicate STREAM-READ-VECTOR (BINARY-INPUT-STREAM T T T) method.

In the remaining STREAM-READ-VECTOR method (and in STREAM-READ-LIST
on BINARY-INPUT-STREAM), call READ-BYTE with eof-value of :EOF (as noted
by Wade Humeniuk.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-streams.lisp

    r9240 r9731  
    35363536       ((= i end) end)
    35373537    (declare (fixnum i))
    3538     (let* ((b (read-byte stream)))
     3538    (let* ((b (read-byte stream nil :eof)))
    35393539      (if (eq b :eof)
    35403540        (return i)
     
    37073707       ((= i count) count)
    37083708    (declare (fixnum i))
    3709     (let* ((b (read-byte stream)))
     3709    (let* ((b (read-byte stream nil :eof)))
    37103710      (if (eq b :eof)
    37113711        (return i)
     
    37163716
    37173717
    3718 (defmethod stream-read-vector ((stream binary-input-stream)
    3719                                vector start end)
    3720   (declare (fixnum start end))
    3721   (do* ((i start (1+ i)))
    3722        ((= i end) end)
    3723     (declare (fixnum i))
    3724     (let* ((b (read-byte stream)))
    3725       (if (eq b :eof)
    3726         (return i)
    3727         (setf (uvref vector i) b)))))
     3718
    37283719
    37293720(defun stream-is-closed (s)
Note: See TracChangeset for help on using the changeset viewer.