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

Completed fix to win32 problem.

Browse source
This commit is contained in:
japhie 2005-06-02 21:55:11 +00:00
parent 3a0bfb9811
commit b2f879c3a0
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpmain.lsp
View file

@ -248,7 +248,9 @@ main(int argc, char **argv)
(setq item (pathname-name item))
(push (init-function-name item) submodules))))
(setq c-file (open c-name :direction :output))
(format c-file +lisp-program-header+ (if (eq :fasl target) nil submodules))
(format c-file +lisp-program-header+
#-(or :win32 :mingw32) (if (eq :fasl target) nil submodules)
#+(or :win32 :mingw32) submodules)
(cond (shared-data-file
(data-init shared-data-file)
(format c-file "