anchor.diff:    (let ((effective-id (proxy-id object)))
       (or (find-opdef *object-interface* op)
           (find-opdef (or (known-interface effective-id)
  -                        (loop for rep in *repositories*
  -                              thereis (op:lookup_id (if (symbolp rep) (symbol-value rep) rep) effective-id))
  +                        (op:lookup_id *internal-interface-repository* effective-id)
                           (object-interface object)
                           (get-interface effective-id)) 
                       op))))
  
positive.code: 
  (in-package :clorb)
  
  (defvar *repositories* '())
  
  
  ;;;; file URL
  
negative.code: 
  
  
  (defvar *pre-narrowed-ns* nil)
  (defvar *narrowed-ns* nil)
  
  (defun get-ns ()
    (let ((ns (op:resolve_initial_references (orb_init) "NameService")))
      (cond ((and (eq ns *pre-narrowed-ns*)
                  *narrowed-ns*)
             *narrowed-ns*)
            (t
             (setq *pre-narrowed-ns* ns
                   *narrowed-ns* nil)
             (typecase ns
               (cosnaming:namingcontext ns)
               (t
                (or
                 (setq *narrowed-ns* (object-narrow ns 'cosnaming:namingcontextext t))
                 (setq *narrowed-ns* (object-narrow ns 'cosnaming:namingcontext)))))))))
  
  (defun resolve (&rest names)
    (op:resolve (get-ns) (ns-name* names)))
  