From 094159799d8d91839e5ab865f2dca71b2111a617 Mon Sep 17 00:00:00 2001 From: "Tarn W. Burton" Date: Wed, 4 Sep 2024 05:56:28 -0400 Subject: [PATCH] Fix file-write-date --- src/core/unixfsys.cc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/core/unixfsys.cc b/src/core/unixfsys.cc index 53cd349fc8..654159c87b 100644 --- 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(); }