anchor.diff:      :digits digits
       :scale scale))
   
  +
  +(define-method op:destroy ((obj repository))
  +  (raise-system-exception 'omg.org/corba:bad_inv_order
  +                          2 :completed_yes))
  +
  +
    
   ;;;; ModuleDef
  
positive.code:                 :supported_interfaces supported_interfaces
                  :initializers initializers)))
  
  
  		
  
negative.code: (defmethod idltype-tc ((def alias-def))
    (create-alias-tc (op:id def) (op:name def)
                     (op:type (op:original_type_def def))))
  
  (define-method op:destroy ((obj alias-def))
    (let ((orig (op:original_type_def obj)))
      (when (and (typep orig 'CORBA:IDLtype)
                 (typep orig 'CORBA:Contained))
        (op:destroy orig)))
    (call-next-method))
  
  
  
  
  ;;;; interface StructDef : TypedefDef
  