Commit d8223174 authored by Zach Beane's avatar Zach Beane
Browse files

Fix semantics of EXCL::FILESYS-WRITE-DATE.

Return a universal-time, not a Unix epoch time.
parent 7afed378
......@@ -167,8 +167,11 @@ values otherwise."
(defun excl::filesys-size (fd)
(fstat-size fd))
(defvar *unix-epoch-universal-time*
(encode-universal-time 0 0 0 1 1 1970 0))
(defun excl::filesys-write-date (fd)
(fstat-mtime fd))
(+ *unix-epoch-universal-time* (fstat-mtime fd)))
(defun excl::filesys-type (native-namestring)
(file-kind native-namestring))
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment