WITH-DEFAULT-DATABASE — Execute a body of code with *default-database* bound to a specified database.
Macro
databaseAn active database object.
bodyA Lisp code body.
resultDetermined by the result of executing the last
expression in body.
*default-database*
=> #<CLSQL-ODBC:ODBC-DATABASE new/dent OPEN {49095CAD}>
(let ((database (clsql:find-database ":memory:")))
(with-default-database (database)
(database-name *default-database*)))
=> ":memory:"