(xdef 'dir-exists (lambda (name)
                     (if (directory-exists? name) name 'nil)))

From ac.scm ©