Fix file-write-date

clasp-developers · Sep 4, 2024 · 0941597 · 0941597
1 parent 835962f
commit 0941597
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/core/unixfsys.cc b/src/core/unixfsys.cc
@@ -1117,7 +1117,7 @@ CL_DEFUN Number_sp cl__file_write_date(T_sp pathspec) {
   String_sp filename = coerce_to_posix_filename(pathname);
   struct stat filestatus;
   if (safe_stat((char*)filename->get_path_string().c_str(), &filestatus) >= 0)
-    return make_number(filestatus.st_mtime) * make_number(2208988800);
+    return make_number(filestatus.st_mtime) + make_number(2208988800);
   return nil<Number_O>();
 }