Declare as special variable *use-html-output-p* in run-tests-in-host

diff --git a/jscl.lisp b/jscl.lisp
index c1a8658..aae6ee9 100644 (file)
--- a/jscl.lisp
+++ b/jscl.lisp
@@ -92,6 +92,7 @@
 (defun run-tests-in-host ()
   (load "tests.lisp")
   (let ((*use-html-output-p* nil))
+    (declare (special *use-html-output-p*))
     (dolist (input (directory "tests/*.lisp"))
       (load input)))
   (load "tests-report.lisp"))