anchor.diff:  
   
   ;;;  interface ORB {				// PIDL
  +
  +(defclass CORBA:TYPECODEFACTORY ()
  +  ())
   
   (define-corba-class ORB (CORBA:TypeCodeFactory)
     :slots
  
positive.code: 
  ;;;    string object_to_string (in Object obj);
  (define-method object_to_string ((orb orb) obj)
    (declare (ignore orb))
    (object-to-string obj))
  
  (defun object-to-string (objref)
  
negative.code: ;; :ID "IDL:omg.org/CORBA/TypeCodeFactory:1.0"
  ;; :NAME "TypeCodeFactory")
  
  
  
  (define-method "CREATE_RECURSIVE_TC" ((obj corba:typecodefactory) id)
  