anchor.diff:  PortableInterceptor::LOCATION_FORWARD
   PortableInterceptor::TRANSPORT_RETRY
   |#
  -  (ecase (request-status self)
  +  (ecase (request-status (the-request self))
       ((:user_exception) PortableInterceptor::USER_EXCEPTION)
       ((:no_exception) PortableInterceptor::SUCCESSFUL)
       ((:system_exception) PortableInterceptor::SYSTEM_EXCEPTION)
       ((:location_forward) PortableInterceptor::LOCATION_FORWARD)))
   
  -(define-method "FORWARD_REFERENCE" ((self client-request))
  -  (object-forward (request-target self)))
  -
  -(define-method "GET_SLOT" ((self client-request) _ID)
  +(define-method "FORWARD_REFERENCE" ((self client-request-info))
  +  (object-forward (request-target (the-request self))))
  +
  +(define-method "GET_SLOT" ((self client-request-info) _ID)
     (DECLARE (IGNORE _ID))
     (raise-system-exception 'CORBA:NO_IMPLEMENT))
   
  
positive.code: (defmethod run-interceptors ((self pi-request) interceptors operation)
    (setf (flow-stack self) nil)
    (dolist (interceptor interceptors)
      (funcall operation interceptor self)
      (push interceptor (flow-stack self))))
  
  (defmethod rerun-interceptors ((self pi-request) operation)
    (dolist (interceptor (flow-stack self))
      (funcall operation interceptor self)))
  
  (defmethod pop-interceptors ((self pi-request) operation)
    (loop while (flow-stack self)
          do (funcall operation (pop (flow-stack self)) self)))
  
  
  ;;; to handle locate request (for the time)
  
negative.code: ;; example, it is unknown or the bindings dont provide the TypeCode), then this
  ;; attribute will be an any containing the system exception UNKNOWN with a standard minor code of 1. However, the RepositoryId of the exception is available in the received_exception_id attribute.
  
  (define-method "RECEIVED_EXCEPTION" ((self client-request-info))
    (raise-system-exception 'CORBA:NO_IMPLEMENT))
  
  
  ;;; readonly attribute CORBA::RepositoryId received_exception_id;
  ;; This attribute is the CORBA::RepositoryId of the exception to be returned to the client.
  
  (define-method "RECEIVED_EXCEPTION_ID" ((self client-request-info))
    (exception-id (request-exception (the-request self))))
  
  
  (define-method "GET_EFFECTIVE_COMPONENT" ((self client-request-info) _ID)
    (DECLARE (IGNORE _ID))
    (raise-system-exception 'CORBA:NO_IMPLEMENT))
  
  (define-method "GET_EFFECTIVE_COMPONENTS" ((self client-request-info) _ID)
    (DECLARE (IGNORE _ID))
    (raise-system-exception 'CORBA:NO_IMPLEMENT))
  
  (define-method "GET_REQUEST_POLICY" ((self client-request-info)
                                       _TYPE)
    (DECLARE (IGNORE _TYPE))
    (raise-system-exception 'CORBA:NO_IMPLEMENT))
  