(setf (database-odbc-conn database) nil)
t)
(defmethod database-query (query-expression (database odbc-database) result-types)
(handler-case
(setf (database-odbc-conn database) nil)
t)
(defmethod database-query (query-expression (database odbc-database) result-types)
(handler-case