X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-tests.lisp;h=0069333a3a4d2f7dcc56dac2c83d1f5f99a2946a;hb=e62bb3a4b9633dbd898fca05cc4af3dd0a16e0aa;hp=80e28ac1a9a94557db0cc8d7cc18ff1090cfe945;hpb=69fe69971242dba6905e9c55f8ce6a9a93c9e403;p=sbcl.git

diff --git a/tests/run-tests.lisp b/tests/run-tests.lisp
index 80e28ac..0069333 100644
--- a/tests/run-tests.lisp
+++ b/tests/run-tests.lisp
@@ -200,6 +200,8 @@
                                       (list (native-namestring ,file))
                                       :environment (test-util::test-env)
                                       :output *error-output*)))
+     (let ((*failures* nil))
+       (test-util:report-test-status))
      (sb-ext:quit :unix-status (process-exit-code process))))
 
 (defun accept-test-file (file)