anchor.diff:    (defpackage :s-xml)
     (defpackage :s-xml-rpc)
   
  -  (in-package :common-lisp-user)
  -
     (defun start-xml-rpc-server (port) 
       (s-xml-rpc:start-xml-rpc-server :port port)
       (format t ";;; XML-RPC server listening at port ~A~%" port)
  
positive.code: (format t "loading xml-rpc...~%")
  
  #+allegro
  
negative.code: 
  #+allegro
  (progn
  
    (defvar *xml-rpc-server-id*)
    (defun start-xml-rpc-server (port)
  