anchor.diff:  
   (defclass clorb-adaptor ()
     ((orb :initarg :orb  :accessor adaptor-orb)
  -   (listner-socket 
  +   (listner-socket
       :initarg :listner
       :initform nil :accessor listner-socket)
      (client-streams :initform nil :accessor client-streams-raw)))
   
   (defun setup-server (&optional (orb (ORB_init)))
     (setq *server-socket* (open-passive-socket *port*))
  -  (let ((adaptor (make-instance 'clorb-adaptor 
  +  (let ((adaptor (make-instance 'clorb-adaptor
                      :orb orb
                      :listner *server-socket*)))
       (setf (adaptor orb) adaptor)))
  
positive.code:              (slot-value exc 'types)
               (handler-case
                   (map 'list #'second
                        (third (typecode-params 
                                (get-typecode (exception-id exc)))))
                (error () (error 'unknown)))))
     (cons (exception-id exc)
  
negative.code: 
  
  (defun get-message (stream)
    (let ((sreq (make-server-request
                 :stream stream
                 :buffer (get-work-buffer))))
      (when (read-request sreq stream)
  