From 6c343fd33442df454a241a13b05b289cb40de105 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Tue, 21 Feb 2017 09:22:30 +0100
Subject: [PATCH] safe-run-program: return code

---
 src/cmp/cmpos-run.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/cmpos-run.lsp b/src/cmp/cmpos-run.lsp
index 648a8f449..e54bf266c 100755
--- a/src/cmp/cmpos-run.lsp
+++ b/src/cmp/cmpos-run.lsp
@@ -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)"