anchor.diff:    (op:run orb))
   
   (defun recover (&optional (orb (ORB_init)))
  -  (let ((adaptor (adaptor orb)))
  -    (mapc #'socket-close (client-streams-raw adaptor))
  -    (setf (client-streams-raw adaptor) nil))
  +  (io-reset :listner nil)
     (main-loop orb))
  
positive.code:   *root-POA*)
  
  (eval-when (:load-toplevel :execute)
    (pushnew (cons "RootPOA" #'root-POA)
             *default-initial-references*
             :key #'car :test #'equal ))
  
negative.code: 
  ;;;; Server proper
  
  (defun setup-server (&optional (orb (ORB_init)))
    (multiple-value-bind (port host)
        (io-create-listner (orb-port orb))
      (setf (adaptor orb) t)
      (setf (orb-port orb) port)
      (unless (orb-host orb)
        (setf (orb-host orb) host))
      (setup-shortcut)))
  
  (defun setup-incoming-connection (conn)
    (connection-init-read conn nil *iiop-header-size* #'poa-request-handler))
  
  (defun setup-shortcut-in (&optional (conn-in *shortcut-in*))
    (setup-incoming-connection conn-in))
  
  (defun setup-shortcut ()
    (let ((orb (CORBA:ORB_init)))
      (setup-shortcut-out (orb-host orb) (orb-port orb))
      (setup-shortcut-in)))
  
  (defun shortcut-off ()
    (let* ((orb (CORBA:ORB_init))
           (holder (get-connection-holder (orb-host orb) (orb-port orb))))
      (setf (cdr holder) nil)))
  
  (defun poa-connection-handler (desc)
    (let ((conn (make-associated-connection desc)))
      (setup-incoming-connection conn)))
  
  (defun poa-request-handler (conn)
    (let ((sreq (make-server-request
                 :connection conn
                 :buffer (connection-read-buffer conn))))
      (read-request sreq
                    (lambda (conn)
                      (setup-incoming-connection conn)
                      (decode-request sreq)
                      (poa-demux sreq)))))
  
  (defun poa-demux (sreq)
    (with-slots (object-key operation) sreq
  