Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Zach Beane
zacl
Commits
1d22975d
Commit
1d22975d
authored
Nov 28, 2016
by
Zach Beane
Browse files
Properly include EXCL:DEVICE-READ in stream protocol.
parent
3529eb02
Changes
2
Hide whitespace changes
Inline
Side-by-side
package-excl.lisp
View file @
1d22975d
...
...
@@ -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
)))
...
...
package-socket.lisp
View file @
1d22975d
...
...
@@ -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
))
...
...
Zach Beane
@zbeane
Mentioned in issue
#2 (closed)
·
Nov 28, 2016
Mentioned in issue
#2 (closed)
Mentioned in issue #2
Toggle commit list
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment