From b2f879c3a08591aec208f3ed4540e99005e9f7d9 Mon Sep 17 00:00:00 2001 From: japhie Date: Thu, 2 Jun 2005 21:55:11 +0000 Subject: [PATCH] Completed fix to win32 problem. --- src/cmp/cmpmain.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp index 3e9567826..c1a0c0256 100644 --- a/src/cmp/cmpmain.lsp +++ b/src/cmp/cmpmain.lsp @@ -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 "