anchor.diff:    (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" 
  +                                           (orb-default-initial-reference orb)
  +                                           name)))
  +        (push ref-entry (orb-initial-references orb))))
       (unless ref-entry
         (error 'ORB/InvalidName))
       (let ((obj (cddr ref-entry)))
  
positive.code: 
      (loop while args do
        (let ((option (pop args)))
          (cond ((equal option "-ORBInitialReference")
                 (process-opt-initial-reference orb (pop args)))
                ((string-starts-with option "-ORB")
                 (pop args))
                (t (push option new-args)))))
  
      (nreverse new-args)))
  
  (defun process-opt-initial-reference (orb arg)
    (let ((eq-pos (position #\= arg)))
  
negative.code:          (let ((ior-string
                  (with-open-file (fs filename :direction :input)
                    (read-line fs))))
             (string-to-object orb (string-trim #.(vector #\Space #\Linefeed #\Return)
                                                ior-string)))))
        (t
         (error "Unrecognized URL method: ~A" method)))))
  
  