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:     t))
  
  (defun prepare-auto-mode ()
    (let* ((filename (file-name-nondirectory (buffer-filename)))
           (elt (find-if #'(lambda (elt)
                             (ppcre:scan (car elt) filename))
                         *auto-mode-alist*)))
  
negative.code: (in-package :lem)
  
  (export '(file-name-as-directory
            file-directory-p
            temp-file-name
            expand-file-name
  