anchor.diff:  
       (loop while args do
         (let ((option (pop args)))
  -        (cond ((equal option "-ORBInitialReference")
  +        (cond ((equal option "-ORBInitRef")
                  (process-opt-initial-reference orb (pop args)))
  +              ((equal option "-ORBDefaultInitRef")
  +               (setf (orb-default-initial-reference orb) (pop args)))
                 ((string-starts-with option "-ORB")
                  (pop args))
                 (t (push option new-args)))))
   
       (nreverse new-args)))
  +
  +#|
  +(CORBA:ORB_init '("-ORBDefaultInitRef" "corbaloc::555objs.com"))
  +(CORBA:ORB_init '("-ORBInitRef" "NameService=corbaloc::1.2@localhost:2001/NameService"))
  +|#
   
   (defun process-opt-initial-reference (orb arg)
     (let ((eq-pos (position #\= arg)))
  
positive.code:   (let ((ref-entry
           (assoc name (orb-initial-references orb)
                  :test #'string=)))
      (unless ref-entry
        (error 'ORB/InvalidName))
      (let ((obj (cddr ref-entry)))
  
negative.code:    (host    :initarg :host    :accessor orb-host)
     (port    :initarg :port    :accessor orb-port)
     (initial-references :initform '()
                         :accessor orb-initial-references)
     (default-initial-reference
      :initform nil
      :accessor orb-default-initial-reference)))
  
  ;; initial ref:
  ;;  ( name  .  ( string . object  ))
  