anchor.diff:  ;;                                  in PolicyFactory policy_factory);
   
   
  +;;;; Providing access to the orb 
  +
  +(defmethod the-orb ((req client-request))
  +  *the-orb*)
  +
  +(defmethod the-orb ((obj CORBA:Object))
  +  *the-orb*)
  
positive.code: ;;;    void add_client_request_interceptor (in ClientRequestInterceptor interceptor) 
  ;;      raises (DuplicateName);
  
  ;;;    void add_server_request_interceptor (in ServerRequestInterceptor interceptor)
  ;;      raises (DuplicateName);
  
  
negative.code: 
  ;;; ORB CORBA:ORB_init (arg_list, orbid)
  
  (defun CORBA:ORB_init (&optional args (orbid "") set-init)
    (when (eq args t)
      (setq args nil set-init t))
    (let ((info nil))
  