Changeset 9730

Timestamp:

Jun 11, 2008, 6:43:58 AM (13 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:

• release/1.2/source/level-1/l1-streams.lisp (modified) (3 diffs)

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

@@ -3535 +3535 @@
        ((= i end) end)
     (declare (fixnum i))
-    (let* ((b (read-byte stream)))
+    (let* ((b (read-byte stream nil :eof)))
       (if (eq b :eof)
         (return i)
@@ -3706 +3706 @@
        ((= i count) count)
     (declare (fixnum i))
-    (let* ((b (read-byte stream)))
+    (let* ((b (read-byte stream nil :eof)))
       (if (eq b :eof)
         (return i)
@@ -3715 +3715 @@
 
 
-(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)