anchor.diff:    (raise-system-exception 'CORBA:MARSHAL 4 :completed_no))
   
   
  + 
   ;;;; CORBA:Object
   
  
positive.code:   :name "Object")
  
  
  ;;;| boolean	 is_nil();
  
  (define-method _is_nil ((x null))
    t)
  
negative.code:          (call-next-method))))
  
  
  
  ;;;; ValueBase
  
  (defclass CORBA:ValueBase ()
    ())
  
  
  
  ;;;; AbstractBase
  
  (defclass CORBA:AbstractBase (CORBA:Object)
  