Commit 1d22975d authored by Zach Beane's avatar Zach Beane
Browse files

Properly include EXCL:DEVICE-READ in stream protocol.

parent 3529eb02
......@@ -415,6 +415,15 @@ values otherwise."
(unless end (setf end (length sequence)))
(excl:device-write stream sequence start end nil))
#+ccl
(defmethod ccl:stream-read-vector ((stream excl:single-channel-simple-stream) sequence start end)
(unless start (setf start 0))
(unless end (setf end (length sequence)))
(let ((result (excl:device-read stream sequence start end nil)))
(if (minusp result)
0
result)))
(defmethod stream-force-output ((stream excl:single-channel-simple-stream))
(force-output (underlying-output-stream stream)))
......
......@@ -29,7 +29,9 @@
:reader socket)
(real-stream
:initarg :real-stream
:reader real-stream)))
:reader real-stream
:reader underlying-input-stream
:reader underlying-output-stream)))
(defmethod stream-write-byte ((stream zacl-socket) byte)
(write-byte byte (real-stream stream)))
......@@ -63,8 +65,6 @@
(defmethod stream-read-sequence ((stream zacl-socket) sequence start end
&key &allow-other-keys)
(when (stringp sequence)
(error "Not implemented"))
(unless start (setf start 0))
(unless end (setf end (length sequence)))
(read-sequence sequence (real-stream stream) :start start :end end))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment