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

mislib.lsp: fix argument type if long-long is not available

Browse source
This commit is contained in:
Marius Gerbershagen 2020-06-12 20:50:02 +02:00
parent 0158e14dea
commit 9c9f07c4ce
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/lsp/mislib.lsp
View file

@ -251,7 +251,7 @@ 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-long) :bool "
(ffi::c-inline (unix-time) (#+long-long :unsigned-long-long #-long-long :unsigned-long) :bool "
{
time_t when = (#0);
struct tm *ltm = localtime(&when);