anchor.diff:  
   (defvar *naming-ior-file*  nil)
   (defvar *naming-base-path* (merge-pathnames
  -                            (make-pathname :directory '(:relative "naming"))
  +                            (make-pathname :type "obj" :directory '(:relative "naming"))
                               clorb::*clorb-pathname-defaults*))
   
   
  
positive.code:   (assert (= 1 (length n)))
    (let ((orb (op:_orb nc))
          (name-component (elt n 0)))
      (let ((path (pns-path nc name-component)))
        (ensure-directories-exist path)
        (handler-case
  
negative.code:            :bindings rest)))))
  
  (define-method unbind ((self naming-context) n)
    (pns-step-do self n
                 (lambda () (let ((path (pns-path self (elt n 0))))
                              (delete-file path)))
                 #'op:unbind))
  
  
  
  