anchor.diff:      t))
   
   (defun prepare-auto-mode ()
  -  (let* ((filename (file-name-nondirectory (buffer-filename)))
  +  (let* ((filename (file-namestring (buffer-filename)))
            (elt (find-if #'(lambda (elt)
                              (ppcre:scan (car elt) filename))
                          *auto-mode-alist*)))
  
positive.code: 
  (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))))
      (cond
       ((null buf)
        (file-open filename))
  
negative.code:           (return-from scan-file-property-list))))))
  
  (defun file-open (path)
    (let ((name (file-namestring path))
          (absolute-path (expand-file-name path)))
      (when (and (string/= "" name)
                 (not (cl-fad:directory-exists-p absolute-path)))
  