Changeset 9730

Show
Ignore:
Timestamp:
06/11/08 01:43:58 (4 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.)

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • release/1.2/source/level-1/l1-streams.lisp

    r9200 r9730  
    35313531       ((= i end) end) 
    35323532    (declare (fixnum i)) 
    3533     (let* ((b (read-byte stream))) 
     3533    (let* ((b (read-byte stream nil :eof))) 
    35343534      (if (eq b :eof) 
    35353535        (return i) 
    … …  
    37003700       ((= i count) count) 
    37013701    (declare (fixnum i)) 
    3702     (let* ((b (read-byte stream))) 
     3702    (let* ((b (read-byte stream nil :eof))) 
    37033703      (if (eq b :eof) 
    37043704        (return i) 
    … …  
    37093709 
    37103710 
    3711 (defmethod stream-read-vector ((stream binary-input-stream) 
    3712                                vector start end) 
    3713   (declare (fixnum start end)) 
    3714   (do* ((i start (1+ i))) 
    3715        ((= i end) end) 
    3716     (declare (fixnum i)) 
    3717     (let* ((b (read-byte stream))) 
    3718       (if (eq b :eof) 
    3719         (return i) 
    3720         (setf (uvref vector i) b))))) 
     3711 
    37213712 
    37223713(defun stream-is-closed (s)