From ad12426068874bb2e2f6ae5e1f567cb5b513713d Mon Sep 17 00:00:00 2001 From: =?utf8?q?David=20V=C3=A1zquez?= Date: Wed, 1 May 2013 22:25:46 +0100 Subject: [PATCH] Do not use html in RUN-TESTS-IN-HOST --- jscl.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) 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")) -- 1.7.10.4