((or string list)
(let ((db (find-database database :errorp nil)))
(when (null db)
- (if (and database errorp)
+ (if (and database error)
(error 'clsql-generic-error
:message
(format nil "Unable to find database with connection-spec ~A." database))
(when (is-database-open db)
(if force
- (ignore-errors (disconnect db))
- (disconnect db :error nil)))
+ (ignore-errors (disconnect :database db))
+ (disconnect :database db :error nil)))
(connect (connection-spec db))))
(setq connection-spec (string-to-list-connection-spec connection-spec)))
(database-destroy connection-spec database-type))
+(defun list-databases (connection-spec &key database-type)
+ (when (stringp connection-spec)
+ (setq connection-spec (string-to-list-connection-spec connection-spec)))
+ (database-list connection-spec database-type))
(defmacro with-database ((db-var connection-spec &rest connect-args) &body body)
"Evaluate the body in an environment, where `db-var' is bound to the