anchor.diff:  (defclass CORBA:TYPECODEFACTORY ()
     ())
   
  -(define-corba-class ORB (CORBA:TypeCodeFactory)
  -  :slots
  +(defclass ORB (CORBA:TypeCodeFactory)
     ((adaptor :initform nil :accessor adaptor)
      (active  :initarg :active  :accessor orb-active)
      (host    :initarg :host    :accessor orb-host)
      (port    :initarg :port    :accessor orb-port)
  +   (client-request-interceptors :accessor client-request-interceptors
  +                                :initform nil)
      (initial-references :initform '()
                          :accessor orb-initial-references)
      (default-initial-reference
  
positive.code: ;;    void pre_init (in ORBInitInfo info);
  ;;    void post_init (in ORBInitInfo info);
  
  (defclass PORTABLEINTERCEPTOR:ORBINITIALIZER ()
    ())
  
  (define-method "PRE_INIT" ((init PortableInterceptor:ORBInitializer) info)
    (declare (ignore info)))
  
  (define-method "POST_INIT" ((init PortableInterceptor:ORBInitializer) info)
    (declare (ignore info)))
  
  
  
negative.code: ;;;    void resolve_initial_references (in ObjectId id)
  ;;      raises (InvalidName);
  
  (define-method resolve_initial_references ((orbinfo orb-init-info) id)
    (handler-case
        (op:resolve_initial_references (the-orb orbinfo) id)
      (CORBA:ORB/InvalidName ()
  