r9219: sql/relations.lisp: fix to add subclassing support, minor optimizations [Edi...

[clsql.git] / tests / test-init.lisp

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 87ae7175e5c4fadae4539695a62aef216391ec79..2f36da21643a81458c34872dd227a8085f37d422 100644 (file)
--- 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)