anchor.diff:  
   #+allegro
   (progn
  -  (in-package :common-lisp-user)
   
     (defvar *xml-rpc-server-id*)
     (defun start-xml-rpc-server (port)
  
positive.code:   (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)
  
negative.code: (in-package :common-lisp-user)
  (format t "loading xml-rpc...~%")
  
  #+allegro
  