anchor.diff:  
   (defclass null-servant (portableserver:servant) ())
   (defmethod interface-name ((self null-servant)) 'CORBA:Object)
  +
  +
  +;; ==========================================================================
  +
  +(defclass mock-activator (PORTABLESERVER:SERVANTACTIVATOR)
  +  ((adapter  :initarg :adapter)
  +   (expected-oid  :initarg :expected-oid)
  +   (created-servant)
  +   (etheralize-verifier :initarg :etheralize-verifier  :initform nil)
  +   (etheralize-called   :initform 0)))
  +
  +(define-method incarnate ((s mock-activator) oid adapter)
  +  ;; Raises ForwardRequest
  +  (ensure (slot-boundp s 'expected-oid) "unexpected incarnate")
  +  (ensure-eql adapter (slot-value s 'adapter))
  +  (ensure-equalp oid (slot-value s 'expected-oid))
  +  (setf (slot-value s 'created-servant) (make-instance 'null-servant)))
  +
  +(define-method etherealize ((s mock-activator) oid adapter servant cleanup-in-progress reamining-activations)
  +  (incf (slot-value s 'etheralize-called))
  +  (ensure-pattern
  +   (list oid adapter servant cleanup-in-progress reamining-activations)
  +   (slot-value s 'etheralize-verifier)))
  +
  +
  +
  +;; ==========================================================================
  +
   
   (define-test-suite "POA Test"
     (variables 
  
positive.code:         (OMG.ORG/PORTABLESERVER:POA/ADAPTERNONEXISTENT ()))
        (ensure-eql (gethash id1 *poa-map*) nil)
        (ensure-eql (gethash id2 *poa-map*) nil)
        (ensure-exception
         (op:create_POA poa1 "p9" nil nil)
         CORBA:BAD_INV_ORDER 'op:minor (std-minor 17))))
  
negative.code:   
    
    (define-test "set_servant_manager"
       (ensure-exception (op:set_servant_manager root-poa nil)
         portableserver:poa/wrongpolicy  )
       (let ((poa (op:create_POA root-poa "p" nil
                                 (list (op:create_request_processing_policy root-poa :use_servant_manager)
                                       (op:create_servant_retention_policy root-poa :retain)))))
  