+/* A slightly higher-level interface than `set_file_times' */
+static int
+lisp_string_set_file_times (Lisp_Object filename,
+ EMACS_TIME atime, EMACS_TIME mtime)
+{
+ char *ext_filename;
+ LISP_STRING_TO_EXTERNAL (filename, ext_filename, Qfile_name);
+ return set_file_times (ext_filename, atime, mtime);
+}
+