The following example assumes that the
:odbc
database type has been initialized as described in Initialization functions and variables. 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*)