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

Undo a recent change that broke Windows port, and which solves a problem (name duplication) that cannot happen there

Browse source
This commit is contained in:
jjgarcia 2005-06-02 14:24:05 +00:00
parent ed4dc39588
commit 3a0bfb9811
1 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/cmp/cmpmain.lsp
View file

@ -325,11 +325,13 @@ static cl_object VV[VM];
(setf output-name (compile-file-pathname output-name :type :fasl)))
(unless init-name
(setf init-name (init-function-name "CODE" nil)))
(format c-file +lisp-program-init+ init-name prologue-code shared-data-file
(mapcar #'(lambda (sm)
(format nil "((ecl_init_function_t) ecl_library_symbol(Cblock, \"~A\"))" sm))
submodules)
epilogue-code)
#-(or :win32 :mingw32)
(setf submodules
(mapcar #'(lambda (sm)
(format nil "((ecl_init_function_t) ecl_library_symbol(Cblock, \"~A\"))" sm))
submodules))
(format c-file +lisp-program-init+ init-name prologue-code shared-data-file
submodules epilogue-code)
(close c-file)
(compiler-cc c-name o-name)
(apply #'bundle-cc output-name o-name ld-flags)))