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:          (let ((ior-string
                  (with-open-file (fs filename :direction :input)
                    (read-line fs))))
             (string-to-object orb ior-string))))
        (t
         (error "Unrecognized URL method: ~A" method)))))
  
  
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  ))
  