anchor.diff:     ((and (stringp refstring)
            (> (length refstring) 4)
            (string-equal "IOR:" refstring :end2 4))
  -    (op::string_to_object orb refstring))
  +    (op:string_to_object orb refstring))
      (t
       (file-to-object orb refstring))))
   
   
  -(define-method op::list_initial_references ((orb orb))
  +;;;    ObjectIdList list_initial_services (); 
  +(define-method list_initial_references ((orb orb))
     (mapcar #'car (orb-initial-references orb)))
   
  -(define-method op::resolve_initial_references ((orb orb) name)
  +;;;    Object resolve_initial_references (in ObjectId identifier)
  +;;;      raises (InvalidName); 
  +(define-method resolve_initial_references ((orb orb) name)
     (let ((ref-entry
            (assoc name (orb-initial-references orb)
            :test #'equal)))
       (unless ref-entry
  -      (error 'object-not-exist))
  +      (error 'ORB/InvalidName))
       (funcall (cdr ref-entry) orb)))
   
  -(define-method op::work_pending ((orb orb))
  +;;;    boolean work_pending(  );
  +(define-method work_pending ((orb orb))
     ;; FIXME
     t)
   
  -(define-method op::perform_work ((orb orb))
  +;;;    void perform_work( );
  +(define-method perform_work ((orb orb))
     (let ((*running-orb* t))
       (orb-wait orb nil)))
   
  -(define-method op::run ((orb orb))
  +;;;    void run();
  +(define-method run ((orb orb))
     (let ((*running-orb* t))
       (loop while (orb-active orb)
           do (orb-wait orb nil))))
  
positive.code:        . ,(lambda (orb) (object-from-var orb *name-service*)))
        ("InterfaceRepository" 
         . ,(lambda (orb) (object-from-var orb *interface-repository*)))))
  
  (define-corba-class ORB ()
    :slots 
  
negative.code:                                    (marshal-ior objref buffer))))))
  
  (defun file-to-object (orb file)
    (op:string_to_object orb
                          (with-open-file (fs file :direction :input)
                            (read-line fs))))
  
  