anchor.diff:  ;;;                       );
   
   (define-method create_enum ((self container)
  -                            id name version members)
  +                              id name version members)
     (addto self (make-instance 'enum-def
                   :id id :name name :version version
                   :members members)))
  
positive.code:   :defaults ())
  
  (define-method type ((adef attribute-def))
    (op:type (slot-value adef 'type_def)))
  
  (defmethod describe-contained ((adef attribute-def))
    (CORBA:AttributeDescription
  
negative.code: 
  ;;; interface 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))
    "")
  
  (define-method containing_repository ((r Repository))
    r)
  
  (defmethod subject-id ((r repository))
    "")
  
  ;;;  Contained lookup_id (in RepositoryId search_id);
  
  