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

run-program: fix misconception

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 18:43:19 +01:00
parent 2b2ef967ef
commit 9e69603e4f
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/lsp/process.lsp
View file

@ -77,9 +77,7 @@
(prepare-args (args)
#-windows
(if (every #'simple-string-p args)
args
(mapcar #'si:copy-to-simple-base-string args))
(mapcar #'si:copy-to-simple-base-string args)
#+windows
(with-output-to-string (str)
(loop for (arg . rest) on args
@ -104,8 +102,8 @@
:direction :output
:if-exists if-error-exists)))
(let* ((args (prepare-args (cons command argv))))
(si:run-program-internal command args
(let ((args (prepare-args (cons command argv))))
(si:run-program-internal (car args) args
input output error
wait environ external-format))))