anchor.diff:  
   (defun validate-operation-def (mode result params exceptions)
     (when (eq mode :op_oneway)
  -    (unless (and (eq :pk_void (op:type result))
  +    (unless (and (eq :tk_void (op:kind (op:type result)))
                    (zerop (length exceptions))
                    (every (lambda (p)
                             (eq :param_in (op:mode p)))
  
positive.code:   :id "IDL:omg.org/CORBA/ConstantDef:1.0"
    :attributes ((type_def)
                 (value))
    :slots ((type))
    :def_kind :dk_Constant)
  
  
  
negative.code: 
  ;;;  WstringDef create_wstring (in unsigned long bound);
  
  (define-method create_wstring ((container Repository) bound)
    (make-instance 'wstring-def
      :bound bound))
  
  
  ;;;  SequenceDef create_sequence
  ;;;     (in unsigned long bound,in IDLType element_type);
  
  