Как проверить, существует ли файл с помощью Emacs Lisp?

Я хотел бы emacs отмечать файлы, которые генерируются как доступные только для чтения, когда они открыты. Часть головоломки, которую мне не хватает, - это проверить, существует ли файл "существует". В настоящее время у меня есть следующее:

;;
;; get file extension
;;
(defun get-ext (file-name)
  (car (cdr (split-string file-name "\\."))))

;; 
;; get the base name of the file
;;
(defun base-name (file-name)
  (car (split-string file-name "\\.")))

;;
;; if an 'lzz' file exists for this header, mark it as read only
;;
(defun mark-read-only ()
  (if (string= (get-ext (cur-file)) "h")
      (if ( ??file-exists??? (concat (base-name (cur-file)) ".lzz") )
          (toggle-read-only))))

Что я могу использовать для "??? file-exists???"?

Как только я нахожу это, я добавлю "только для метки" на соответствующий крючок (который, я думаю, является поисковым файлом).

ПРЕДПОСЫЛКИ

Мы используем lzz в качестве генератора кода для упрощения процесса разработки C/С++. Вкратце, lzz принимает один входной файл (который очень похож на C/С++) и при необходимости генерирует файлы заголовков и исходных текстов.

По умолчанию lzz включает директивы #line, поэтому отладчик указывает на исходный источник, а не на сгенерированный источник, однако, чтобы уменьшить зависимости от компиляции, мы обычно отключаем эти директивы в файлах заголовков. В результате при отладке шаблонов или встроенных функций отладчик обычно указывает на сгенерированный заголовочный файл, а не на исходный исходный файл.

Это не большая проблема, однако недавно я обнаружил, что при отладке я сделаю быструю модификацию отображаемого файла, а затем перестрою. Конечно, это обычно означает, что внесенное мной изменение исчезает, потому что файл, который я редактировал, генерируется, и поэтому изменения "сбрасываются" во время восстановления библиотеки.

Решение

Спасибо всем за помощь и комментарии. Особая благодарность cobbal за указание правильной функции.

Здесь результирующий код (с обновлениями на основе других комментариев здесь тоже):

(defun cur-file ()
  "Return the filename (without directory) of the current buffer"
  (file-name-nondirectory (buffer-file-name (current-buffer)))
  )

(defun mark-generated-as-read-only ()
  "Mark generated source files as read only.
Mark generated files (lzz or gz) read only to avoid accidental updates."
  (if
      (or (string= (file-name-extension (cur-file)) "h")
          (string= (file-name-extension (cur-file)) "cpp"))
      (cond
       (
        (file-exists-p (concat (file-name-sans-extension (cur-file)) ".lzz"))
        (toggle-read-only))
       (
        (file-exists-p (concat (file-name-sans-extension (cur-file)) ".gz") )
        (toggle-read-only))
       )
    )
  )