RE: [spr26540] aserve and xmlrpc (multiple aserve's running)

woohoo! The xml-rpc stuff seems to work like a charm. I used the following
in my tests, where user::*C$ServerPort* is the port that the
application/normal aserve get started on:

(defparameter *xmlrpcserver* nil)

(defun make-xmlrpc-server (&optional (port (+ user::*C$ServerPort* 2000)))
  (setq *xmlrpcserver* (net.xml-rpc::start :server :new :port port))
  (let ((s (net.xml-rpc::make-xml-rpc-server
	          :start nil :enable t
	          :publish (list :path "/RPC2"
			             :server *xmlrpcserver*))))
    (net.xml-rpc::export-xml-rpc-method
       s '("xmlrpc.check-server" xmlrpc.check-server) :string :string
:string)
    (net.xml-rpc::export-xml-rpc-method
       s '("xmlrpc.check-login" xmlrpc.check-login) :string :string :string)
    (net.xml-rpc::enable-xml-rpc-server s)
    s))

One little side note, it may have been on purpose, but the xml-rpc code
doesn't appear to initially live in acl62/xmlrpc/. The two text files
discussing it do, but the actual code is down in acl62/examples/xml-rpc/.
This is on the windows version of acl62, I've not installed any of the other
versions yet.

Tyler