anchor.diff:                   (not (prompt-for-y-or-n-p (format nil
                                                      "~a is opend, overwrite it?"
                                                      expand-file-name))))
  +      (directory-for-file-or-lose filename)
         (unless (string= old new)
  -        (buffer-rename (current-buffer)
  -                       (if (get-buffer new)
  -                           (uniq-buffer-name new)
  -                           new)))
  +        (buffer-rename (current-buffer) (new-buffer-name name expand-file-name)))
         (setf (buffer-filename) expand-file-name)
         (add-newline-at-eof (current-buffer))
         (save-buffer t))))
  
positive.code:           revert-buffer
            change-directory))
  
  (defun expand-files* (filename)
    (directory-files (expand-file-name filename (buffer-directory))))
  
  (define-key *global-keymap* "C-x C-f" 'find-file)
  (define-command find-file (filename) ("p")
  
negative.code:           ((pathnamep filename)
             (setf filename (namestring filename))))
      (dolist (pathname (expand-files* filename))
        (directory-for-file-or-lose pathname)
        (switch-to-buffer (find-file-buffer pathname) t nil)
        t)))
  
  (define-key *global-keymap* "C-x C-r" 'read-file)
  (define-command read-file (filename) ("FRead File: ")
  