Changeset 9741

Timestamp:

Jun 12, 2008, 8:22:12 PM (16 years ago)

Author:

Gary Byers

Message:

Propagete r9730 to working-0711.

File:

• branches/working-0711/ccl/level-1/l1-streams.lisp (modified) (3 diffs)

branches/working-0711/ccl/level-1/l1-streams.lisp

@@ -3539 +3539 @@
        ((= i end) end)
     (declare (fixnum i))
-    (let* ((b (read-byte stream)))
+    (let* ((b (read-byte stream nil :eof)))
       (if (eq b :eof)
         (return i)
@@ -3710 +3710 @@
        ((= i count) count)
     (declare (fixnum i))
-    (let* ((b (read-byte stream)))
+    (let* ((b (read-byte stream nil :eof)))
       (if (eq b :eof)
         (return i)
@@ -3716 +3716 @@
 
 
-
-
-
-(defmethod stream-read-vector ((stream binary-input-stream)
-                               vector start end)
-  (declare (fixnum start end))
-  (do* ((i start (1+ i)))
-       ((= i end) end)
-    (declare (fixnum i))
-    (let* ((b (read-byte stream)))
-      (if (eq b :eof)
-        (return i)
-        (setf (uvref vector i) b)))))
 
 (defun stream-is-closed (s)