[s-xml-rpc-devel] SBCL support

[Sebastián González]

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