60 |
|
|
61 |
# endif |
# endif |
62 |
|
|
63 |
static void siLget_system_time_zone(void); |
static void FFN(siLget_system_time_zone)(void); |
64 |
|
|
65 |
#endif /* __MINGW32__ or !defined NO_SYSTEM_TIME_ZONE */ |
#endif /* __MINGW32__ or !defined NO_SYSTEM_TIME_ZONE */ |
66 |
|
|
128 |
RETURN1(unix_time_to_universal_time(time(0))); |
RETURN1(unix_time_to_universal_time(time(0))); |
129 |
} |
} |
130 |
|
|
131 |
void |
LFD(Lsleep)(void) |
|
Lsleep(void) |
|
132 |
{ |
{ |
133 |
object z; |
object z; |
134 |
|
|
153 |
vs_push(Cnil); |
vs_push(Cnil); |
154 |
} |
} |
155 |
|
|
156 |
void |
LFD(Lget_internal_run_time)(void) |
|
Lget_internal_run_time(void) |
|
157 |
{ |
{ |
158 |
|
|
159 |
#ifdef USE_INTERNAL_REAL_TIME_FOR_RUNTIME |
#ifdef USE_INTERNAL_REAL_TIME_FOR_RUNTIME |
272 |
#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE |
#if defined __MINGW32__ || !defined NO_SYSTEM_TIME_ZONE |
273 |
|
|
274 |
static void |
static void |
275 |
siLget_system_time_zone(void) |
FFN(siLget_system_time_zone)(void) |
276 |
{ |
{ |
277 |
check_arg(0); |
check_arg(0); |
278 |
vs_push ( make_fixnum ( system_time_zone_helper() ) ); |
vs_push ( make_fixnum ( system_time_zone_helper() ) ); |