Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Zach Beane
zacl
Commits
1be01c00
Commit
1be01c00
authored
Dec 07, 2016
by
Zach Beane
Browse files
Implement stream-read-sequence like ccl:stream-read-vector.
parent
42ab4357
Changes
1
Show whitespace changes
Inline
Side-by-side
package-socket.lisp
View file @
1be01c00
...
...
@@ -92,7 +92,16 @@
&key
&allow-other-keys
)
(
unless
start
(
setf
start
0
))
(
unless
end
(
setf
end
(
length
sequence
)))
(
read-sequence
sequence
(
real-stream
stream
)
:start
start
:end
end
))
(
if
(
stringp
sequence
)
(
let
((
offset
start
)
(
buffer
(
make-array
(
-
end
start
)
:element-type
'
(
unsigned-byte
8
))))
(
let*
((
after-index
(
read-sequence
buffer
(
real-stream
stream
)))
(
string
(
octets-to-string
buffer
:start
0
:end
after-index
:external-format
:latin-1
)))
(
replace
sequence
string
:start1
start
:end1
end
:start2
0
:end2
after-index
)
(
+
offset
after-index
)))
(
read-sequence
sequence
(
real-stream
stream
)
:start
start
:end
end
)))
#+
ccl
(
defmethod
ccl:stream-read-vector
((
stream
zacl-socket
)
sequence
start
end
)
...
...
@@ -120,6 +129,8 @@
remote-port
remote-host
format
(
backlog
5
)
type
nodelay
)
(
declare
(
ignore
format
type
))
(
unless
backlog
(
setf
backlog
5
))
(
ecase
connect
(
:passive
(
let
((
socket
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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