From 77cebaef4a843ee56dca7e57fcbde9d161d40f91 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sat, 19 Nov 2016 22:03:36 +0100
Subject: [PATCH] tests: don't ruin run-program return values output

---
 src/tests/ecl-tests.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tests/ecl-tests.lisp b/src/tests/ecl-tests.lisp
index b81b21df8..5aba4c0b6 100644
--- a/src/tests/ecl-tests.lisp
+++ b/src/tests/ecl-tests.lisp
@@ -133,5 +133,5 @@ as a second value."
       `(let ((,var (ext:mkstemp "ecl-tests")))
          (with-open-file (,stream ,var :direction :output)
            (format ,stream ,string))
-         ,@body
-         (delete-file ,var)))))
+         (multiple-value-prog1 (progn ,@body)
+           (delete-file ,var))))))