From 63640b0a7987d5eaeacf21492bb2be802869d950 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 8 Jun 2013 22:04:06 -0700 Subject: [PATCH] Added newlines to the C templates. --- src/cmp/cmpmain.lsp | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) 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