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: 
  
  (defun get-message (stream)
    (let ((sreq (make-server-request 
                 :stream stream
                 :buffer (get-work-buffer))))
      (when (read-request sreq stream)
  
negative.code: (defmethod listner-sockets ((adaptor clorb-adaptor))
    (if (listner-socket adaptor)
        (list (listner-socket adaptor))))
  
  (defmethod listner-host ((adaptor clorb-adaptor))
    (passive-socket-host *server-socket*))
  
  (defmethod listner-port ((adaptor clorb-adaptor))
    (passive-socket-port *server-socket*))
  
  (defun srv-handle-socket (adaptor socket &optional allow-blocking)
    (let ((conn (accept-connection-on-socket socket allow-blocking)))
  