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

run-program: use previously prepared arguments

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-17 16:24:48 +01:00
parent 9a166af99c
commit d8c4da22fc
2 changed files with 2 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/unixsys.d
View file

@ -571,12 +571,7 @@ si_run_program_internal(cl_object command, cl_object argv,
/* Enclose each argument, as well as the file name
in double quotes, to avoid problems when these
arguments or file names have spaces */
command =
cl_format(4, ECL_NIL,
ecl_make_simple_base_string("~A~{ ~A~}", -1),
command, argv);
command = si_copy_to_simple_base_string(command);
command = ecl_null_terminated_base_string(command);
command = ecl_null_terminated_base_string(argv);
if (!Null(environ)) {
env_buffer = from_list_to_execve_argument(environ, NULL);
@ -637,7 +632,6 @@ si_run_program_internal(cl_object command, cl_object argv,
{
int child_stdin, child_stdout, child_stderr;
int pipe_fd[2];
argv = CONS(command, ecl_nconc(argv, ecl_list1(ECL_NIL)));
argv = _ecl_funcall3(@'coerce', argv, @'vector');
create_descriptor(input, @':input', &child_stdin, &parent_write);

2
src/lsp/process.lsp
View file

@ -105,7 +105,7 @@
:if-exists if-error-exists)))
(let ((args (prepare-args (cons command argv))))
(si:run-program-internal (car args) (cdr args)
(si:run-program-internal (si:copy-to-simple-base-string command) args
input output error
wait environ external-format))))