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

run-program: don't modify command

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

5
src/lsp/process.lsp
View file

@ -104,9 +104,8 @@
:direction :output
:if-exists if-error-exists)))
(let* ((args (prepare-args (cons command argv)))
(progname (car args)))
(si:run-program-internal progname args
(let* ((args (prepare-args (cons command argv))))
(si:run-program-internal command args
input output error
wait environ external-format))))