Changeset 9730 for release


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

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
  • release/1.2/source/level-1/l1-streams.lisp

    r9200 r9730  
    35353535       ((= i end) end)
    35363536    (declare (fixnum i))
    3537     (let* ((b (read-byte stream)))
     3537    (let* ((b (read-byte stream nil :eof)))
    35383538      (if (eq b :eof)
    35393539        (return i)
     
    37063706       ((= i count) count)
    37073707    (declare (fixnum i))
    3708     (let* ((b (read-byte stream)))
     3708    (let* ((b (read-byte stream nil :eof)))
    37093709      (if (eq b :eof)
    37103710        (return i)
     
    37153715
    37163716
    3717 (defmethod stream-read-vector ((stream binary-input-stream)
    3718                                vector start end)
    3719   (declare (fixnum start end))
    3720   (do* ((i start (1+ i)))
    3721        ((= i end) end)
    3722     (declare (fixnum i))
    3723     (let* ((b (read-byte stream)))
    3724       (if (eq b :eof)
    3725         (return i)
    3726         (setf (uvref vector i) b)))))
     3717
    37273718
    37283719(defun stream-is-closed (s)
Note: See TracChangeset for help on using the changeset viewer.