sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix daylight savings time detection for win64

Browse source
This commit is contained in:
Marius Gerbershagen 2020-03-07 22:16:17 +01:00
parent f76bd95786
commit f776bd8615
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/lsp/mislib.lsp
View file

@ -251,11 +251,11 @@ Universal Time UT, which defaults to the current time."
#.(encode-universal-time 0 0 0 1 1 2033 0))
(- universal-time (encode-universal-time 0 0 0 1 1 year 0) utc-1-1-1970)))))
#-ecl-min
(ffi::c-inline (unix-time) (:unsigned-long) :bool "
(ffi::c-inline (unix-time) (:unsigned-long-long) :bool "
{
time_t when = (#0);
struct tm *ltm = localtime(&when);
@(return) = ltm->tm_isdst;
@(return) = (ltm != NULL) && ltm->tm_isdst;
}"
:one-liner nil)))