Changeset 9741


Ignore:
Timestamp:
Jun 13, 2008, 3:22:12 AM (11 years ago)
Author:
gb
Message:

Propagete r9730 to working-0711.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-streams.lisp

    r9620 r9741  
    35393539       ((= i end) end)
    35403540    (declare (fixnum i))
    3541     (let* ((b (read-byte stream)))
     3541    (let* ((b (read-byte stream nil :eof)))
    35423542      (if (eq b :eof)
    35433543        (return i)
     
    37103710       ((= i count) count)
    37113711    (declare (fixnum i))
    3712     (let* ((b (read-byte stream)))
     3712    (let* ((b (read-byte stream nil :eof)))
    37133713      (if (eq b :eof)
    37143714        (return i)
     
    37163716
    37173717
    3718 
    3719 
    3720 
    3721 (defmethod stream-read-vector ((stream binary-input-stream)
    3722                                vector start end)
    3723   (declare (fixnum start end))
    3724   (do* ((i start (1+ i)))
    3725        ((= i end) end)
    3726     (declare (fixnum i))
    3727     (let* ((b (read-byte stream)))
    3728       (if (eq b :eof)
    3729         (return i)
    3730         (setf (uvref vector i) b)))))
    37313718
    37323719(defun stream-is-closed (s)
Note: See TracChangeset for help on using the changeset viewer.