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

Reinstate missing quoting of commands fed to SI:SYSTEM.

Browse source
This commit is contained in:
Trail@.(none) 2010-04-06 02:13:05 +04:00 • committed by Juan Jose Garcia Ripoll
parent 973090bc55
commit 48e066f45b
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/cmp/cmpmain.lsp
View file

@ -479,9 +479,9 @@ static cl_object VV[VM];
(when (probe-file output-name) (delete-file output-name))
#-msvc
(progn
(safe-system (format nil "ar cr ~A ~A ~{~A ~}"
output-name o-name ld-flags))
(safe-system (format nil "ranlib ~A" output-name)))
(safe-system (format nil "ar cr ~S ~S ~{~S ~}"
(namestring output-name) (namestring o-name) ld-flags))
(safe-system (format nil "ranlib ~S" (namestring output-name))))
#+msvc
(unwind-protect
(progn