The following example assumes that the sql package has been loaded, and that the :odbc database type has been initialized. It connects to two databases, scott and personnel , and then prints out the connected databases.
(setf *default-database-type* :odbc)
(connect "scott")
(connect "personnel" :database-type :odbc)
(print *connected-databases*)