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

Prefix the block creation macros, ECL_BLOCK_*, etc

Browse source
This commit is contained in:
Juan Jose Garcia-Ripoll 2012-06-30 12:01:44 +02:00
parent 8441a08c97
commit efadef99dc
13 changed files with 74 additions and 64 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmpmain.lsp
View file

@ -279,11 +279,11 @@ extern int
main(int argc, char **argv)
{
cl_boot(argc, argv);
CL_CATCH_ALL_BEGIN(ecl_process_env()) {
ECL_CATCH_ALL_BEGIN(ecl_process_env()) {
~A
ecl_init_module(OBJNULL, ~A);
~A
} CL_CATCH_ALL_END;
} ECL_CATCH_ALL_END;
si_exit(0);
}")
@ -292,11 +292,11 @@ extern int
~A(int argc, char **argv)
{
cl_boot(argc, argv);
CL_CATCH_ALL_BEGIN(ecl_process_env()) {
ECL_CATCH_ALL_BEGIN(ecl_process_env()) {
~A
ecl_init_module(OBJNULL, ~A);
~A
} CL_CATCH_ALL_END;
} ECL_CATCH_ALL_END;
}")
#+:win32
@ -309,11 +309,11 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdS
int argc;
ecl_get_commandline_args(&argc, &argv);
cl_boot(argc, argv);
CL_CATCH_ALL_BEGIN(ecl_process_env()) {
ECL_CATCH_ALL_BEGIN(ecl_process_env()) {
~A
ecl_init_module(OBJNULL, ~A);
~A
} CL_CATCH_ALL_END;
} ECL_CATCH_ALL_END;
si_exit(0);
}")