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

safe-run-program: return code

Browse source
This commit is contained in:
Daniel Kochmański 2017-02-21 09:22:30 +01:00
parent 487e671d34
commit 6c343fd334
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -42,8 +42,8 @@
(args `(,@(cdr program) ,@args))
(program (car program)))
(with-current-directory
#-windows(si:run-program-inner program args nil)
#+windows(si:system (format nil "~A~{ ~A~}" program args))))))
#-windows (nth-value 1 (si:run-program-inner program args nil))
#+windows (si:system (format nil "~A~{ ~A~}" program args))))))
(cond ((null result)
(cerror "Continues anyway."
"Unable to execute:~%(RUN-PROGRAM ~S ~S)"