anchor.diff:  ;;                                  in PolicyFactory policy_factory);
   
   
  + 
   ;;;; Test interceptor
   
  
positive.code: 
  
  
  
  ;;;; PortableInterceptor::ORBInitializer
  ;;  local interface ORBInitializer {
  
negative.code: (define-method name ((self my-client-interceptor))
    (slot-value self 'name))
  
  (defun args-except (info mode)
    (loop for a in (op:arguments info)
       unless (eql (op:mode a) mode)
       collect (any-value (op:argument a))))
  
  (define-method "SEND_REQUEST" ((self my-client-interceptor) info)
    (mess 3 "SEND_REQUEST: ~S ~S ~S"
          (op:operation info)
          (op:effective_target info)
          (args-except info :param_out))
    (mess 3 "effective profile ~S" (op:effective_profile info))
    '(when (equal (op:operation info) "resolve")
      (describe info)
      (break "resolve"))
    (op:add_request_service_context 
     info 
     (iop:ServiceContext :context_id 17 :context_data #(1))
  