X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=tests%2Ftest-init.lisp;h=489b4875dbc07ab4e2205f8c5f946330cd192fdc;hb=021d4ab301e290da50d80e2689a2e71129108248;hp=87ae7175e5c4fadae4539695a62aef216391ec79;hpb=c55451302afa47365232b6f6ef533a8b9984e8d4;p=clsql.git

diff --git a/tests/test-init.lisp b/tests/test-init.lisp
index 87ae717..489b487 100644
--- a/tests/test-init.lisp
+++ b/tests/test-init.lisp
@@ -160,7 +160,7 @@
   (truncate-database :database *default-database*)
   
   (setf *test-database-underlying-type*
-	(clsql-sys:database-underlying-type *default-database*))
+	(clsql:database-underlying-type *default-database*))
   
   *default-database*)
 
@@ -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)