WITH-DEFAULT-DATABASE — Execute a body of code with *default-database* bound to a specified database.Macro
database
An active database object.
body
A Lisp code body.
result
Determined 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:"