anchor.diff:  ;;;     raises (ObjectNotActive, WrongPolicy);
   
   (define-method id_to_servant ((poa PortableServer:POA) id)
  -  (or (trie-get (to-object-id id) (POA-active-object-map poa))
  +  (or (poa-has-policy poa :use_default_servant)
  +      (check-policy poa :retain))
  +  (setq id (to-object-id id))
  +  (or (oid-servant (active-object-map poa) id)
  +      (if (poa-has-policy poa :use_default_servant)
  +        (op:get_servant poa))
         (error 'PortableServer:poa/objectnotactive)))
   
   ;;;   Object id_to_reference(in ObjectId oid)
  
positive.code:   (when (and (poa-has-policy poa :retain)
               (poa-has-policy poa :use_servant_manager)
               (POA-servant-manager poa))
      (maptrie (lambda (oid servant)
                 (op:etherealize (POA-servant-manager poa) 
                                 oid poa servant t 
                                 (not (null (gethash servant (poa-active-servant-map poa))))))
               (POA-active-object-map poa))))
  
  
  (define-method destroy ((poa PortableServer:POA) etherealize-objects wait-for-completion)
  
negative.code: (define-method activate_object_with_id ((poa PortableServer:POA) id servant)
    (check-policy poa :retain)
    (setq id (to-object-id id))
    (when (oid-servant (active-object-map poa) id)
      (error (portableserver:poa/objectalreadyactive)))
    (unless (poa-has-policy poa :multiple_id)
      (when (servant-active-p (active-object-map poa) servant)
        (error (portableserver:poa/servantalreadyactive))))
    (add-activation (active-object-map poa) id servant)
    id)
  
  (define-method deactivate_object ((poa PortableServer:POA) oid)
    (check-policy poa :retain)
    (setq oid (to-object-id oid))
    (let ((activation (remove-activation (active-object-map poa) oid)))
      (unless activation
        (error (portableserver:poa/ObjectNotActive)))
      (let ((servant (cdr activation)))
        (when (poa-has-policy poa :use_servant_manager)
          (op:etherealize (POA-servant-manager poa) 
                          oid poa servant nil
                          (servant-active-p (active-object-map poa) servant))))))
  
  
  