anchor.diff:      (raise-system-exception 'CORBA:BAD_PARAM 4))
     (moveto to-container obj new-name new-version))
   
  +(define-method op:destroy ((obj contained))
  +  (remhash (subject-id obj) (idmap (op:containing_repository obj)))
  +  (let ((container (op:defined_in obj)))
  +    (when container
  +      (setf (contents container)
  +            (delete obj (contents container))))))
  +
  +
    
   ;;;; Container
  
positive.code: (defmethod idltype-tc ((def alias-def))
    (create-alias-tc (op:id def) (op:name def)
                     (op:type (op:original_type_def def))))
  
  ;;;; interface StructDef : TypedefDef
  
negative.code:       (values (subseq str 0 method-end)
                (subseq str (+ method-end 2)))
        str )))
  
  
  (define-method op:describe_contents ((self container) limit-type exclude-inherited max-return-objects)
    (when (eql max-return-objects -1)
      (setq max-return-objects most-positive-fixnum))
    (loop for c in (op:contents self limit-type exclude-inherited)
          repeat max-return-objects
          collect (CORBA:Container/Description 
                   :contained_object c
                   :kind (op:def_kind c)
                   :value (describe-contained c))))
  
  
  ;;;  ModuleDef create_module (
  