anchor.diff:  ;;;    void resolve_initial_references (in ObjectId id)
   ;;      raises (InvalidName);
   
  -(define-method resolve_initial_references ((orbinfo PortableInterceptor:ORBInitInfo) id)
  +(define-method resolve_initial_references ((orbinfo orb-init-info) id)
     (handler-case
         (op:resolve_initial_references (the-orb orbinfo) id)
       (CORBA:ORB/InvalidName ()
  
positive.code: ;;                                  in PolicyFactory policy_factory);
  
  
  
negative.code: ;;;    void add_client_request_interceptor (in ClientRequestInterceptor interceptor) 
  ;;      raises (DuplicateName);
  
  (define-method "ADD_CLIENT_REQUEST_INTERCEPTOR" ((self orb-init-info) interceptor)
    (when (find (op:name interceptor) (client-request-interceptors (the-orb self)))
      (error (omg.org/portableinterceptor:orbinitinfo/duplicatename 
              :name (op:name interceptor))))
    (push interceptor (client-request-interceptors (the-orb self))))
  
  
  ;;;    void add_server_request_interceptor (in ServerRequestInterceptor interceptor)
  ;;      raises (DuplicateName);
  
  