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

Use more accurate MSVC/Win32 tools syntax.

Browse source
This commit is contained in:
goffioul 2005-05-17 13:06:23 +00:00
parent 29706f33ca
commit c3d1b0353f
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpmain.lsp
View file

@ -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")))
)