anchor.diff:                         (op:length obj)))
   
   
  +;;;; interface FixedDef : IDLType
  +;;   attribute unsigned short digits;
  +;;   attribute short scale;
  +
  +(define-ir-class fixed-def (CORBA:FixedDef idltype)
  +  :def_kind :dk_fixed
  +  :attributes ((digits 1)
  +               (scale 0)))
  +
  +(defmethod idltype-tc ((obj fixed-def))
  +  (make-typecode :tk_fixed (omg.org/features:digits obj)
  +                 (op:scale obj)))
  +
  +
    
   ;;;; Export IR
  
positive.code: 
  ;;;  WstringDef create_wstring (in unsigned long bound);
  
  ;;;  SequenceDef create_sequence
  ;;;     (in unsigned long bound,in IDLType element_type);
  
  
negative.code: (defun validate-operation-def-change (def &key 
                                              (mode (op:mode def))
                                              (result (op:result_def def))
                                              (params (slot-value def 'params))
                                              (exceptions (op:exceptions def)))
    (validate-operation-def mode result params exceptions))
  
  