Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Zach Beane
zacl
Commits
d8223174
Commit
d8223174
authored
Nov 23, 2016
by
Zach Beane
Browse files
Fix semantics of EXCL::FILESYS-WRITE-DATE.
Return a universal-time, not a Unix epoch time.
parent
7afed378
Changes
1
Hide whitespace changes
Inline
Side-by-side
package-excl.lisp
View file @
d8223174
...
...
@@ -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
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment