(xdef 'file-exists (lambda (name)
                     (if (file-exists? name) name 'nil)))

From ac.scm ©