anchor.diff:  
   (define-key *global-keymap* (kbd "C-x C-f") 'find-file)
   (define-command find-file (filename) ("FFind File: ")
  -  (let ((buf (get-buffer (file-name-nondirectory filename))))
  +  (let ((buf (get-buffer (file-namestring filename))))
       (cond
        ((null buf)
         (file-open filename))
  
positive.code:           (return-from scan-file-property-list))))))
  
  (defun file-open (path)
    (let ((name (file-name-nondirectory path))
          (absolute-path (expand-file-name path)))
      (when (and (string/= "" name)
                 (not (cl-fad:directory-exists-p absolute-path)))
  
negative.code: (in-package :lem)
  
  (export '(file-name-as-directory
            file-directory-p
            temp-file-name
            expand-file-name
  