anchor.diff:  
    
  -;;;; EnumDef
  +;;;; interface EnumDef : TypedefDef
  +;;;    attribute EnumMemberSeq members;
  +
   
   (define-ir-class enum-def (corba:EnumDef typedef-def)
     :def_kind :dk_enum
  
positive.code:   :attributes ((members)))
  
  
  (defmethod moveto :before ((c struct-def) (object contained) new-name new-version)
    (declare (ignore new-name new-version))
    (typecase object 
      ((or Struct-Def Union-Def Enum-Def))
      (otherwise
       (raise-system-exception 'CORBA:BAD_PARAM 4))))
  
  
  (defmethod op:members :before ((obj struct-def) &rest x)
    (declare (ignore x))
    (doseq (m (slot-value obj 'members))
  
negative.code:    :version (op:version obj)
     ;;  TypeCode type;
     :type (op:type obj)))
  
  ;;;; moveto restrictions - for IDL-types union, struct, execption
  
  (defmethod moveto :before ((c union-def) (object contained) new-name new-version)
    (declare (ignore new-name new-version))
    (typecase object 
      ((or Struct-Def Union-Def Enum-Def))
      (otherwise
       (raise-system-exception 'CORBA:BAD_PARAM 4))))
  
  
  (defmethod moveto :before ((c struct-def) (object contained) new-name new-version)
    (declare (ignore new-name new-version))
    (typecase object 
      ((or Struct-Def Union-Def Enum-Def))
      (otherwise
       (raise-system-exception 'CORBA:BAD_PARAM 4))))
  
  
  (defmethod moveto :before ((c exception-def) (object contained) new-name new-version)
    (declare (ignore new-name new-version))
    (typecase object 
      ((or Struct-Def Union-Def Enum-Def))
      (otherwise
       (raise-system-exception 'CORBA:BAD_PARAM 4))))
  
  
  
  