per documentation :odbc and :aodbc have their user in the second slot of the connection spec.
This causes a number more tests to fail that used to pass because this variable wasn't right.
(setf *test-database-type* db-type)
(setf *test-database-user*
(cond
(setf *test-database-type* db-type)
(setf *test-database-user*
(cond
- ((eq :oracle db-type) (second spec))
+ ((member db-type '(:oracle :odbc :aodbc)) (second spec))
((>= (length spec) 3) (third spec))))
;; Connect to the database
((>= (length spec) 3) (third spec))))
;; Connect to the database