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

Entry point of standalone programs is now called init_ECL_PROGRAM().

Browse source
This commit is contained in:
jgarcia 2006-10-22 16:22:04 +00:00
parent 54f460ceaf
commit fdf09f5850
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/CHANGELOG
View file

@ -102,6 +102,11 @@ ECL 1.0:
- Variable EXT:*HELP-MESSAGE* and EXT:+DEFAULT-COMMAND-ARG-RULES+ exported.
- C:BUILD-PROGRAM now uses a unique prefix for the initialization function,
init_ECL_PROGRAM, to avoid collisions when both the program and a component
have the same name:
(C:BUILD-PROGRAM "ls" :lisp-files '("ls.o"))
* Contributed code:
- New examples: cmdline/ls.lsp

2
src/cmp/cmpmain.lsp
View file

@ -292,7 +292,7 @@ static cl_object VV[VM];
(when (or (symbolp output-name) (stringp output-name))
(setf output-name (compile-file-pathname output-name :type :program)))
(unless init-name
(setf init-name (init-function-name (pathname-name output-name) nil)))
(setf init-name (init-function-name "ECL_PROGRAM" nil)))
(format c-file +lisp-program-init+ init-name "" shared-data-file
submodules "")
(format c-file #+:win32 (ecase system (:console +lisp-program-main+)