From: Kevin Rosenberg Date: Fri, 4 Sep 2009 18:16:57 +0000 (-0600) Subject: Have database-type default be *default-database-type* X-Git-Url: https://repo.or.cz/w/clsql/s11.git/commitdiff_plain/be383802fc1f47547eef6d57945023ff71d45657 Have database-type default be *default-database-type* --- diff --git a/ChangeLog b/ChangeLog index 015ab2a..a8cf358 100644 --- a/ChangeLog +++ b/ChangeLog @@ -8,6 +8,8 @@ Fix transposed letters (thanks to Stephen Compall) * db-mysql/Makefile: Add directory for MacPorts mysql5 port (thanks to Stephen Compall) + * sql/database.lisp: Have database-type default be + *default-database-type* (thanks to Desmond O. Chang) 31 Aug 2009 Kevin Rosenberg * sql/db-interface.lisp: Fix spelling error (thanks to diff --git a/sql/database.lisp b/sql/database.lisp index f23eea2..83fe7d6 100644 --- a/sql/database.lisp +++ b/sql/database.lisp @@ -280,28 +280,28 @@ database is printed." (print-separator total-size)))) (values))) -(defun create-database (connection-spec &key database-type) +(defun create-database (connection-spec &key (database-type *default-database-type*)) "This function creates a database in the database system specified by DATABASE-TYPE." (when (stringp connection-spec) (setq connection-spec (string-to-list-connection-spec connection-spec))) (database-create connection-spec database-type)) -(defun probe-database (connection-spec &key database-type) +(defun probe-database (connection-spec &key (database-type *default-database-type*)) "This function tests for the existence of a database in the database system specified by DATABASE-TYPE." (when (stringp connection-spec) (setq connection-spec (string-to-list-connection-spec connection-spec))) (database-probe connection-spec database-type)) -(defun destroy-database (connection-spec &key database-type) +(defun destroy-database (connection-spec &key (database-type *default-database-type*)) "This function destroys a database in the database system specified by DATABASE-TYPE." (when (stringp connection-spec) (setq connection-spec (string-to-list-connection-spec connection-spec))) (database-destroy connection-spec database-type)) -(defun list-databases (connection-spec &key database-type) +(defun list-databases (connection-spec &key (database-type *default-database-type*)) "This function returns a list of databases existing in the database system specified by DATABASE-TYPE." (when (stringp connection-spec)