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