Have database-type default be *default-database-type*
authorKevin Rosenberg <kevin@rosenberg.net>
Fri, 4 Sep 2009 18:16:57 +0000 (4 12:16 -0600)
committerKevin Rosenberg <kevin@rosenberg.net>
Fri, 4 Sep 2009 18:16:57 +0000 (4 12:16 -0600)
ChangeLog
sql/database.lisp

index 015ab2a..a8cf358 100644 (file)
--- 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 <kevin@rosenberg.net>
        * sql/db-interface.lisp: Fix spelling error (thanks to
index f23eea2..83fe7d6 100644 (file)
@@ -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)