r9240: rework to avoid some sbcl optimization notes

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

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