diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index de8337782..e0b6b597e 100755 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -265,7 +265,8 @@ void ~A(cl_object cblock) Cblock->cblock.next = current; } ~A -}") +} +") (defconstant +lisp-program-main+ " extern int @@ -278,7 +279,8 @@ main(int argc, char **argv) ~A } ECL_CATCH_ALL_END; si_exit(0); -}") +} +") (defconstant +lisp-library-main+ " extern int @@ -290,7 +292,8 @@ extern int ecl_init_module(OBJNULL, ~A); ~A } ECL_CATCH_ALL_END; -}") +} +") #+:win32 (defconstant +lisp-program-winmain+ " @@ -308,7 +311,8 @@ WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdS ~A } ECL_CATCH_ALL_END; si_exit(0); -}") +} +") (defun guess-kind (pathname) "Given a file name, guess whether it is an object file, a library, a program