Changeset 9730
- Timestamp:
- Jun 11, 2008, 6:43:58 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/1.2/source/level-1/l1-streams.lisp
r9200 r9730 3535 3535 ((= i end) end) 3536 3536 (declare (fixnum i)) 3537 (let* ((b (read-byte stream )))3537 (let* ((b (read-byte stream nil :eof))) 3538 3538 (if (eq b :eof) 3539 3539 (return i) … … 3706 3706 ((= i count) count) 3707 3707 (declare (fixnum i)) 3708 (let* ((b (read-byte stream )))3708 (let* ((b (read-byte stream nil :eof))) 3709 3709 (if (eq b :eof) 3710 3710 (return i) … … 3715 3715 3716 3716 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 3727 3718 3728 3719 (defun stream-is-closed (s)
Note: See TracChangeset
for help on using the changeset viewer.