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

cmp:run-program: show exact command

Browse source
This commit is contained in:
Daniel Kochmański 2017-03-23 13:51:52 +01:00
parent f72943f4d1
commit 2991c8f27e
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

@ -46,11 +46,11 @@
#+windows (si:system (format nil "~A~{ ~A~}" program args))))))
(cond ((null result)
(cerror "Continues anyway."
"Unable to execute:~%(RUN-PROGRAM ~S ~S)"
"Unable to execute:~%(SI:RUN-PROGRAM-INNER ~S ~S NIL)"
program args result))
((not (zerop result))
(cerror "Continues anyway."
"Error code ~D when executing~%(RUN-PROGRAM ~S ~S)"
"Error code ~D when executing~%(SI:RUN-PROGRAM-INNER ~S ~S NIL)"
result program args)))
result))