anchor.diff:            (life-state :initform nil :accessor life-state
                         :documentation "Living, destroy in progress or destroyed")
             (etherealize-complete :initform nil :accessor etherealize-complete)
  -          (queue :initform nil :accessor poa-request-queue)))
  +          (queue :initform nil :accessor poa-request-queue)
  +          (executing-requests :initform nil :accessor executing-requests)))
  +
   
   (defmethod print-object ((p portableserver:poa) stream)
     (print-unreadable-object (p stream :type t)
  
positive.code:            (raise-system-exception 'CORBA:OBJECT_NOT_EXIST 0 :completed_no)))))
  
  
  
  (defun poa-invoke (poa request)
    (let ((oid (request-object-id request))
          (operation (request-operation request))
          (buffer (request-input request)))
      (handler-case
        (multiple-value-bind (servant postinvoke)
                             (get-servant poa oid operation)
          (let ((*poa-current* (make-poa-current poa oid servant)))
            (setf (request-state request) :exec)
            (unwind-protect
              (servant-invoke servant operation buffer request)
              (when postinvoke (funcall postinvoke)))))
        (PortableServer:ForwardRequest (exception)
         (set-request-forward request (op:forward_reference exception)))
        (CORBA:UserException ()
         (raise-system-exception 'CORBA:UNKNOWN)))
      (server-request-respond request)))
  
  
  (defun poa-locate (poa poa-spec &optional (check-poa-status t))
  
negative.code: ;;;; clorb-poa.lisp -- Portable Object Adaptor
  ;; $Id: clorb-poa.lisp,v 1.39 2005/02/25 19:33:41 lenst Exp $
  
  (in-package :clorb)
  
  