anchor.diff:  
   (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
  
positive.code: ;;;   attribute IDLType type_def;
  ;;;   attribute any value; };
  
  (define-corba-class constant-def (contained)
    :attributes ((type_def)
                 (value))
    :slots ((type)))
  
  
  
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
  