anchor.diff:  
   ;;;    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)
  
positive.code: ;; :ID "IDL:omg.org/CORBA/TypeCodeFactory:1.0"
  ;; :NAME "TypeCodeFactory")
  
  (defclass CORBA:TYPECODEFACTORY ()
    ())
  
  
  (define-method "CREATE_RECURSIVE_TC" ((obj corba:typecodefactory) id)
  
negative.code: 
  
  ;;;  interface ORB {				// PIDL
  
  (defclass CORBA:TYPECODEFACTORY ()
    ())
  
  (define-corba-class ORB (CORBA:TypeCodeFactory)
    :slots
  