anchor.diff:  ;;;   attribute IDLType type_def;
   ;;;   attribute any value; };
   
  -(define-corba-class constant-def (contained)
  +(define-ir-class constant-def (contained)
  +  :id "IDL:omg.org/CORBA/ConstantDef:1.0"
     :attributes ((type_def)
                  (value))
  -  :slots ((type)))
  +  :slots ((type))
  +  :def_kind :dk_Constant)
   
    
  
positive.code: 
  (defmethod idltype-tc ((obj string-def))
    (make-typecode :tk_string (op:bound obj)))
  
  ;;;; SequenceDef
  
negative.code:   (setf (get def-kind 'ir-class) class))
  
  (defun get-ir-class (def-kind)
    (or (get def-kind 'ir-class)
        (error "No class defined for definition kind ~A" def-kind)))
  
  
  ;;;; Generics
  