anchor.diff:  ;;    void pre_init (in ORBInitInfo info);
   ;;    void post_init (in ORBInitInfo info);
   
  -(defclass PORTABLEINTERCEPTOR:ORBINITIALIZER ()
  +(defclass orb-initializer (PortableInterceptor:ORBInitializer)
     ())
   
  -(define-method "PRE_INIT" ((init PortableInterceptor:ORBInitializer) info)
  +(define-method "PRE_INIT" ((init orb-initializer) info)
     (declare (ignore info)))
   
  -(define-method "POST_INIT" ((init PortableInterceptor:ORBInitializer) info)
  +(define-method "POST_INIT" ((init orb-initializer) info)
     (declare (ignore info)))
   
   
  
positive.code: ;;;    void resolve_initial_references (in ObjectId id)
  ;;      raises (InvalidName);
  
  (define-method resolve_initial_references ((orbinfo PortableInterceptor:ORBInitInfo) id)
    (handler-case
        (op:resolve_initial_references (the-orb orbinfo) id)
      (CORBA:ORB/InvalidName ()
  
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))
  