anchor.diff:    :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))
  
positive.code: 
  (defgeneric moveto (contained container new-name new-version)
    (:documentation "Move the contained object to the container,
  with new-name and new-version. Checks that the name does not collied 
  with the contents of container and check the container allows the type 
  of contained."))
  
  
negative.code:                                                    irtypecode-mixin)
    :def_kind :dk_exception
    :attributes ((members)))
  
  
  (defmethod op:members :before ((obj exception-def) &rest x)
  