mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 12:03:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
jjgarcia 2004-06-08 07:52:09 +00:00
parent 24b91659b2
commit 0bd3f15ca8
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/c/main.d
View file

@ -258,12 +258,12 @@ cl_boot(int argc, char **argv)
cl_core.gentemp_prefix = make_constant_string("T");
cl_core.gentemp_counter = MAKE_FIXNUM(0);
ECL_SET(@'ext::c-int-max', make_integer(INT_MAX));
ECL_SET(@'ext::c-int-min', make_integer(INT_MIN));
ECL_SET(@'ext::c-long-max', make_integer(LONG_MAX));
ECL_SET(@'ext::c-long-min', make_integer(LONG_MIN));
ECL_SET(@'ext::c-uint-max', make_integer(UINT_MAX));
ECL_SET(@'ext::c-ulong-max', make_integer(ULONG_MAX));
ECL_SET(@'si::c-int-max', make_integer(INT_MAX));
ECL_SET(@'si::c-int-min', make_integer(INT_MIN));
ECL_SET(@'si::c-long-max', make_integer(LONG_MAX));
ECL_SET(@'si::c-long-min', make_integer(LONG_MIN));
ECL_SET(@'si::c-uint-max', make_integer(UINT_MAX));
ECL_SET(@'si::c-ulong-max', make_integer(ULONG_MAX));
init_number();
init_unixtime();