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