anchor.diff:    :attributes ((discriminator_type_def)
                  (members)))
   
  -(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))))
   
   (define-method discriminator_type ((obj union-def))
     (op:type (op:discriminator_type_def obj)))
  
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:                                                    irtypecode-mixin)
    :def_kind :dk_exception
    :attributes ((members)))
  
  
  (defmethod op:members :before ((obj exception-def) &rest x)
  