anchor.diff:          (marshal-giop-set-message-length buffer)
           (connection-send-buffer conn buffer)))
       (setf (request-state request) :finished)
  -    (setf (connection-server-requests conn)
  -          (delete request (connection-server-requests conn)))))
  +    (connection-remove-server-request conn request)))
   
   
   (defun poa-cancelrequest-handler (conn)
  
positive.code:                      :request-id req-id :operation operation
                       :service-context service-context :input buffer
                       :state :wait :response-flags response)))
        (push request (connection-server-requests conn))
        (mess 3 "#~D op ~A on '~/clorb:stroid/' from '~/clorb:stroid/'"
              req-id operation object-key principal)
        (loop
  
negative.code: ;;;; clorb-srv.lisp --- CORBA server module
  ;; $Id: clorb-srv.lisp,v 1.28 2004/12/19 23:34:19 lenst Exp $	
  
  (in-package :clorb)
  
  