update
directory-p ==> file-directory-p