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

Added newlines to the C templates.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-06-08 22:04:06 -07:00
parent 19a7af7ee3
commit 63640b0a79
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmpmain.lsp
View file

@ -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