X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=2f36da21643a81458c34872dd227a8085f37d422;hp=87ae7175e5c4fadae4539695a62aef216391ec79;hb=d26a044593b10e62d1ba1c7b80266f55bc100d5d;hpb=e96c19277e33851ce1f87139b7f0c41d8a463bec

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 87ae717..2f36da2 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -379,7 +379,7 @@
       (clsql:initialize-database-type :database-type db-type))))
 
 (defun write-report-banner (report-type db-type stream)
-  (format *report-stream* 
+  (format stream
 	  "~&
 ******************************************************************************
 ***     CLSQL ~A begun at ~A
@@ -443,6 +443,7 @@
 
 
 (defun compute-tests-for-backend (db-type db-underlying-type)
+  (declare (ignorable db-type))
   (let ((test-forms '())
 	(skip-tests '()))
     (dolist (test-form (append (test-basic-forms)