anchor.diff:             :bindings rest)))))
   
   (define-method unbind ((self naming-context) n)
  -  (if (= 1 (length n))
  -      (let ((path (pns-path self (elt n 0))))
  -        (delete-file path))
  -      (multiple-value-bind (next name)
  -          (pns-step self n)
  -        (op:unbind next name))))
  +  (pns-step-do self n
  +               (lambda () (let ((path (pns-path self (elt n 0))))
  +                            (delete-file path)))
  +               #'op:unbind))
   
   
   
  
positive.code:      (subseq n 1))))
  
  
  (define-method bind_context ((self naming-context) n nc)
    (pns-bind self n nc :ncontext))
  
  (define-method bind_new_context ((self naming-context) n)
    (if (= 1 (length n))
        (let ((nc (op:new_context self)))
          (op:bind_context self n nc)
          nc)
        (multiple-value-bind (next name)
            (pns-step self n)
          (op:bind_new_context next name))))
  
  (define-method bind ((self naming-context) n obj)
    (if (= 1 (length n))
        (pns-bind self n obj :nobject)
        (multiple-value-bind (next name)
            (pns-step self n)
          (op:bind next name obj))))
  
  
  (define-method rebind ((self naming-context) n obj)
    (if (= 1 (length n))
        (pns-bind self n obj :nobject t)
        (multiple-value-bind (next name)
            (pns-step self n)
          (op:rebind next name obj))))
  
  (define-method rebind_context ((self naming-context) n nc)
    (if (= 1 (length n))
        (pns-bind self n nc :ncontext t)
        (multiple-value-bind (next name)
            (pns-step self n)
          (op:rebind_context next name nc))))
  
  (define-method resolve ((self naming-context) n)
    (if (= 1 (length n))
        (multiple-value-bind (type obj)
            (resolve1 self n)
          (check-type type COSNAMING:BINDINGTYPE)
          ;; FIXME: should it check? type = :NOBJECT
          obj)
        (multiple-value-bind (next name)
            (pns-step self n)
          (op:resolve next name))))
  
  (define-method list ((self naming-context) how-many)
    (let* ((bindings
  
negative.code: 
  (defvar *naming-ior-file*  nil)
  (defvar *naming-base-path* (merge-pathnames
                              (make-pathname :type "obj" :directory '(:relative "naming"))
                              clorb::*clorb-pathname-defaults*))
  
  
  