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

Allow CC and other environment variables passed to safe-run-program to be a command with arguments

Browse source
This commit is contained in:
Erik M. Bray 2016-03-17 15:57:16 +01:00
parent 1a8f0decf2
commit d23d974654
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/cmp/cmpos-run.lsp
View file

@ -54,7 +54,10 @@
(cmpnote "Invoking external command:~% ~A ~{~A ~}" program args)
(multiple-value-bind (stream result process)
(let* ((*standard-output* ext:+process-standard-output+)
(*error-output* ext:+process-error-output+))
(*error-output* ext:+process-error-output+)
(program (split-program-options program))
(args `(,@(cdr program) ,@args))
(program (car program)))
(with-current-directory
#-(and cygwin (not ecl-min))
(ext:run-program program args :input nil :output t :error t :wait t)