anchor.diff:                                     (marshal-object obj buffer))
                                    orb))))
   
  +
  +
  +;;;; Initial reference operations
  +
  +
   ;;;    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);
  +
   (define-method resolve_initial_references ((orb orb) name)
     (let ((ref-entry
            (assoc name (orb-initial-references orb)
  
positive.code:     :the-orb orb
      :profiles profiles
      :raw-profiles raw-profiles ))
  
  
  ;; initial ref:
  
negative.code:     (unwind-protect 
        (let ((*running-orb* t))
          (loop while (orb-active orb)
                do (orb-work)))
        (setq *running-orb* old))))
  
  
  
  ;;;; Dynamic Invokation related operations
  
  
  ;;;    Status create_list ( in long    count,
  ;;;                         out NVList new_list );
  
  (define-method create_list ((orb CORBA:ORB) count)
    (loop repeat count
          collect (CORBA:NamedValue :name "" 
                                    :argument (CORBA:Any :any-typecode CORBA:tc_void)
                                    :arg_modes CORBA:ARG_IN)))
  
  
  ;;;    Status create_operation_list ( in OperationDef oper,
  