From 533d0c3cd4e3a16124a0335e570951f4a11b63c5 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 22 Jan 2012 23:16:26 +0100
Subject: [PATCH] Fixed miscompilation in Mingw (Xiaofeng Yang)

---
 src/compile.lsp.in | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/compile.lsp.in b/src/compile.lsp.in
index b40b4648b..282091e13 100755
--- a/src/compile.lsp.in
+++ b/src/compile.lsp.in
@@ -372,7 +372,8 @@
  #-(or cross stage1 msvc) "ecl2"
  :epilogue-code '@ECL_INIT_FORM@
  :lisp-files *module-symbols*
- :ld-flags #-msvc '("-L./") #+windows '("ecl.res" "/F 10485760"))
+ :ld-flags
+ (concatenate 'list #-msvc '("-L./") #+windows '("ecl.res" #+msvc "/F 10485760")))
 
 (with-open-file (modules-list #P"build:MODULES" :direction :output
 			      :if-exists :supersede