anchor.diff:    (format nil
   	  "IOR:~{~2,'0X~}"
   	  (map 'list #'identity (marshal-make-encapsulation
  -				 (lambda (buffer) 
  +				 (lambda (buffer)
                                      (marshal-ior objref buffer))))))
   
  -;;;    ObjectIdList list_initial_services (); 
  +;;;    ObjectIdList list_initial_services ();
   (define-method list_initial_references ((orb orb))
     (mapcar #'car (orb-initial-references orb)))
   
   ;;;    Object resolve_initial_references (in ObjectId identifier)
  -;;;      raises (InvalidName); 
  +;;;      raises (InvalidName);
   (define-method resolve_initial_references ((orb orb) name)
     (let ((ref-entry
            (assoc name (orb-initial-references orb)
                   :test #'string=)))
       (unless ref-entry
         (when (orb-default-initial-reference orb)
  -        (setq ref-entry (list name (format nil "~A/~A" 
  +        (setq ref-entry (list name (format nil "~A/~A"
                                              (orb-default-initial-reference orb)
                                              name)))
           (push ref-entry (orb-initial-references orb))))
  
positive.code:                       (setq state 1)
                        (vector-push-extend (char-code ch) out)))
                 (1 (setq state 2)
                    (vector-push-extend 
                     (parse-integer string :start i :end (+ i 2)
                                    :radix 16)
                     out))
  
negative.code:     (when (cadr ref) (setf (cddr ref) nil))))
  
  
  ;;;    exception InvalidName {};
  (define-user-exception CORBA:ORB/InvalidName
      :id "IDL:omg.org/CORBA/ORB/InvalidName:1.0")
  
  