From: David Vázquez <davazp@gmail.com>
Date: Wed, 1 May 2013 21:25:46 +0000 (+0100)
Subject: Do not use html in RUN-TESTS-IN-HOST
X-Git-Url: http://repo.macrolet.net/gitweb/?p=jscl.git;a=commitdiff_plain;h=ad12426068874bb2e2f6ae5e1f567cb5b513713d

Do not use html in RUN-TESTS-IN-HOST
---

diff --git a/jscl.lisp b/jscl.lisp
index 86e27a5..c1a8658 100644
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -90,7 +90,8 @@
 ;;; Run the tests in the host Lisp implementation. It is a quick way
 ;;; to improve the level of trust of the tests.
 (defun run-tests-in-host ()
-  (dolist (input (append (directory "tests.lisp")
-                         (directory "tests/*.lisp")
-                         (directory "tests-report.lisp")))
-    (load input)))
+  (load "tests.lisp")
+  (let ((*use-html-output-p* nil))
+    (dolist (input (directory "tests/*.lisp"))
+      (load input)))
+  (load "tests-report.lisp"))