From s.gonzalez at uclouvain.be  Wed Nov  1 22:01:41 2006
From: s.gonzalez at uclouvain.be (=?ISO-8859-15?Q?Sebasti=E1n_Gonz=E1lez?=)
Date: Wed, 01 Nov 2006 23:01:41 +0100
Subject: [s-xml-rpc-devel] SBCL support
Message-ID: <45491945.1070003@uclouvain.be>

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