anchor.diff:        (ensure (op:is_a obj "IDL:omg.org/CORBA/Object:1.0") "isa Object")
         (ensure (not (op:is_a obj id2)) "not yet isa base")
         (op:create_attribute obj "IDL:my/a:1.0" "a" "1.0" a-string :attr_normal)
  +      (ensure-exception 
  +       (op:create_operation obj "IDL:my/a:1.0" "a" "1.0" a-string :op_normal nil nil nil)
  +       corba:bad_param 'op:minor 3)
         (setf (op:base_interfaces obj) (list obj2))
         (ensure (op:is_a obj id2) "isa base")
         (ensure-pattern* 
  
positive.code: 
      )
      
  )
  
negative.code:       (op:create_attribute obj2 "IDL:my2/a:1.0" "a" "1.0" a-string :attr_normal)
        (ensure-exception 
         (setf (op:base_interfaces obj) (list obj2))
         corba:bad_param 'op:minor 5)))
    
  
  
  