(defun store-type-of-connected-database (db)
(let* ((odbc-conn (database-odbc-conn db))
(server-name (odbc-dbi::get-odbc-info odbc-conn odbc::$SQL_SERVER_NAME))
(defun store-type-of-connected-database (db)
(let* ((odbc-conn (database-odbc-conn db))
(server-name (odbc-dbi::get-odbc-info odbc-conn odbc::$SQL_SERVER_NAME))