Commit fedb2906 authored by Zach Beane's avatar Zach Beane
Browse files

Add READ-VECTOR, STREAM-INPUT-HANDLE.

parent 10fe2d2c
......@@ -280,7 +280,8 @@ values otherwise."
(excl::output-handle
:initarg :output-handle)
(excl::input-handle
:initarg :input-handle)
:initarg :input-handle
:reader excl::stream-input-handle)
(excl::buffer-ptr)
(excl::control-out)
(excl::oc-state)
......@@ -360,6 +361,10 @@ values otherwise."
(write-sequence vector stream :start start :end end)
end)
(defun excl:read-vector (vector stream &key (start 0) end endian-swap)
(declare (ignore endian-swap))
(read-sequence vector stream :start start :end end))
(defmethod excl::socket-bytes-written (socket &optional set)
(declare (ignore socket))
(or set
......
......@@ -143,6 +143,7 @@
#:device-write
#:add-stream-instance-flags
#:write-vector
#:read-vector
#:crlf-base-ef
#:ef-name
#:synchronizing-structure
......
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