(multiple-value-bind (rows col-names)
(funcall (list-all-database-tables-fn database) :db (odbc-conn database))
(declare (ignore col-names))
;; TABLE_SCHEM is hard-coded in second column by ODBC Driver Manager
;; TABLE_NAME in third column, TABLE_TYPE in fourth column
(multiple-value-bind (rows col-names)
(funcall (list-all-database-tables-fn database) :db (odbc-conn database))
(declare (ignore col-names))
;; TABLE_SCHEM is hard-coded in second column by ODBC Driver Manager
;; TABLE_NAME in third column, TABLE_TYPE in fourth column