anchor.diff:  
   ;;; interface Repository : Container
   
  -(define-ir-class Repository (Container)
  +(define-ir-class Repository (CORBA:Repository Container)
     :id "IDL:omg.org/CORBA/Repository:1.0"
     :def_kind :dk_Repository
     :defaults ())
   
   ;;; Method to simplify computation of absolute_name
   (define-method absolute_name ((obj Repository))
  -  nil)
  +  "")
   
   (define-method containing_repository ((r Repository))
     r)
  +
  +(defmethod subject-id ((r repository))
  +  "")
   
   ;;;  Contained lookup_id (in RepositoryId search_id);
   
  
positive.code:                     ,id)))))
  
  
  (define-ir-class IRObject (auto-servant)
    :id "IDL:omg.org/CORBA/IRObject:1.0"
    :attributes ()
    :defaults ())
  
  (define-ir-class IDLType (IRObject)
    :id "IDL:omg.org/CORBA/IDLType:1.0"
    :attributes ()
    :slots ((type :initarg :type))
    :defaults ())
  
  (defgeneric idltype-tc (idltype)
    (:documentation
     "Compute the TypeCode for an IDLType from the attributes other than type."))
  
  (define-method type ((def IDLType))
    (unless (slot-boundp def 'type)
      (setf (slot-value def 'type)
        (idltype-tc def)))
    (slot-value def 'type))
  
  
  ;;;; Contained
  
  (define-ir-class Contained (irobject)
    :id "IDL:omg.org/CORBA/Contained:1.0"
    :attributes ((id :readonly
                     :initarg :subject-id
                     :accessor subject-id)
                 (name "")
  
negative.code: 
  ;;;; InterfaceDef
  
  (define-ir-class interface-def (CORBA:InterfaceDef container contained idltype)
    :id "IDL:omg.org/CORBA/InterfaceDef:1.0"
    :attributes ((base_interfaces))
    :def_kind :dk_Interface
  