anchor.diff:  
   (defmethod the-orb ((obj CORBA:Object))
     *the-orb*)
  -
  -(defmethod the-orb ((obj buffer))
  -  (or (buffer-orb obj)
  -      *the-orb*))
  
positive.code:    (initial-references :initform '()
                         :accessor orb-initial-references)
     (default-initial-reference
      :initform nil
      :accessor orb-default-initial-reference)
     (pending-client-request
      :initform nil
      :accessor pending-client-request)))
  
  
  
  
negative.code: 
  (defvar *orb-class* 'clorb-orb
    "The class (name) of the ORB instantiated by CORBA:ORB_init.")
  
  (defvar *orb-initializers* nil)
  
  