(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*)
(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
(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)