anchor.diff:  
   (defun orb-port (orb)
     (listner-port (adaptor orb)))
  ++
  +;;;    Status create_list ( in long    count,	 
  +;;;                         out NVList new_list );
  +;;;    Status create_operation_list ( in OperationDef oper, 
  +;;;                                   out NVList      new_list );
  +;;;
  +;;;    Status get_default_context (out Context ctx);
  +;;;    boolean get_service_information (in ServiceType         service_type,
  +;;;                                     out ServiceInformation service_information );
  +;;;    // get_current deprecated operation - should not be used by new code
  +;;;    // new code should use resolve_initial_reference operation instead
  +;;;    Current get_current();
  +;;;    // deprecate get_current in the next major printing of CORBA
  +;;;
  +;;;
  +;;;    typedef string ObjectId;
  +;;;    typedef sequence <ObjectId> ObjectIdList; 
  +;;;    
  +
  +
  +
  +
  
positive.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))))
  
  
negative.code:        . ,(lambda (orb) (object-from-var orb *name-service*)))
        ("InterfaceRepository" 
         . ,(lambda (orb) (object-from-var orb *interface-repository*)))))
  
  
  ;;;  interface ORB {				// PIDL
  
  (define-corba-class ORB ()
    :slots 
  