Hi there,
When I tried the following code from the "test" directory of s-xml-rpc,
using SBCL, I got an error:
(assert
(let ((server-process (start-xml-rpc-server :port 8080)))
(import 's-xml-rpc::xml-rpc-implementation-version :s-xml-rpc-exports)
(sleep 1) ; give the server some time to come up ;-)
(unwind-protect
(equal (xml-rpc-call (encode-xml-rpc-call
"XML-RPC-IMPLEMENTATION-VERSION") :port 8080)
(xml-rpc-implementation-version))
(s-sysdeps:kill-process server-process)
(unintern 's-xml-rpc::xml-rpc-implementation-version
:s-xml-rpc-exports))))
The error message is the following (copy-pasted from Slime):
The value
(("xml-rpc server /RPC2:8080"
#<SB-BSD-SOCKETS:INET-SOCKET descriptor 4 {B61F4C9}>
#<SB-IMPL::HANDLER INPUT on descriptor 4: #>))
is not of type
SB-THREAD:THREAD.
[Condition of type TYPE-ERROR]
Apparently SBCL's implementation of s-sysdeps:start-standard-server is
broken...
Does this code still have a maintainer? should I fix it myself and
submit a patch?
Thanks,
Sebastián
