60 |
|
|
61 |
# endif |
# endif |
62 |
|
|
63 |
void siLget_system_time_zone(void); |
static void siLget_system_time_zone(void); |
64 |
|
|
65 |
#endif /* __MINGW32__ or !defined NO_SYSTEM_TIME_ZONE */ |
#endif /* __MINGW32__ or !defined NO_SYSTEM_TIME_ZONE */ |
66 |
|
|
121 |
return(x); |
return(x); |
122 |
} |
} |
123 |
|
|
124 |
DEFUNO("GET-UNIVERSAL-TIME",object,fLget_universal_time,LISP |
DEFUN_NEW("GET-UNIVERSAL-TIME",object,fLget_universal_time,LISP |
125 |
,0,0,NONE,OO,OO,OO,OO,Lget_universal_time,"")() |
,0,0,NONE,OO,OO,OO,OO,(void),"") |
126 |
{ |
{ |
127 |
/* 0 args */ |
/* 0 args */ |
128 |
RETURN1(unix_time_to_universal_time(time(0))); |
RETURN1(unix_time_to_universal_time(time(0))); |
174 |
} |
} |
175 |
|
|
176 |
|
|
177 |
DEFUN("GET-INTERNAL-REAL-TIME",object,fLget_internal_real_time,LISP,0,0,NONE,OO,OO,OO,OO,"Run time relative to beginning") |
DEFUN_NEW("GET-INTERNAL-REAL-TIME",object,fLget_internal_real_time,LISP,0,0,NONE,OO,OO,OO,OO,(void),"Run time relative to beginning") |
178 |
() |
|
179 |
{ |
{ |
180 |
#ifdef __MINGW32__ |
#ifdef __MINGW32__ |
181 |
struct timeb t; |
struct timeb t; |
273 |
|
|
274 |
#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE |
#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE |
275 |
|
|
276 |
void |
static void |
277 |
siLget_system_time_zone(void) |
siLget_system_time_zone(void) |
278 |
{ |
{ |
279 |
check_arg(0); |
check_arg(0); |