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 <kevin@rosenberg.net>
* sql/db-interface.lisp: Fix spelling error (thanks to
(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)