From c3d1b0353f2fb964d4b6f4e1fb85b478f9ecb2ac Mon Sep 17 00:00:00 2001
From: goffioul <goffioul>
Date: Tue, 17 May 2005 13:06:23 +0000
Subject: [PATCH] Use more accurate MSVC/Win32 tools syntax.

---
 src/cmp/cmpmain.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index ddddd580f..9b5d9986a 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -299,9 +299,9 @@ static cl_object VV[VM];
        (unwind-protect
          (progn
            (with-open-file (f "static_lib.tmp" :direction :output :if-does-not-exist :create :if-exists :supersede)
-             (format f "/OUT:~A ~A ~{\"~&~A\"~}"
+             (format f "/DEBUGTYPE:CV /OUT:~A ~A ~{\"~&~A\"~}"
                      output-name o-name ld-flags))
-           (safe-system "link -lib -debug @static_lib.tmp"))
+           (safe-system "lib @static_lib.tmp"))
          (when (probe-file "static_lib.tmp")
            (cmp-delete-file "static_lib.tmp")))
        )