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

Missing return value in cl_boot

Browse source
This commit is contained in:
jgarcia 2007-06-03 12:55:19 +00:00
parent 9af535ade5
commit 89d9922930
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/main.d
View file

@ -174,7 +174,7 @@ cl_boot(int argc, char **argv)
/* We have called cl_shutdown and want to use ECL again. */
ecl_booted = 1;
}
return;
return 1;
}
#if !defined(GBC_BOEHM)
@ -389,7 +389,7 @@ cl_boot(int argc, char **argv)
aux = cl_list(
#ifdef ENABLE_DLOPEN
7,CONS(make_constant_base_string("fas"), @'si::load-binary'),
CONS(make_constant_base_string("fasl"), @'si::load-binary',)
CONS(make_constant_base_string("fasl"), @'si::load-binary',),
#else
5,
#endif