anchor.diff:  ;;;  interface ORB {				// PIDL
   
   (define-corba-class ORB ()
  -  :slots 
  +  :slots
     ((adaptor :initform nil :accessor adaptor)
      (active  :initarg :active  :accessor orb-active)
      (host    :initarg :host    :accessor orb-host)
  
positive.code: 
  
  ;;;    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);
  
negative.code: ;;;
  ;;;
  ;;;    typedef string ObjectId;
  ;;;    typedef sequence <ObjectId> ObjectIdList;
  ;;;
  
  
  