From: Kevin M. Rosenberg Date: Fri, 3 Dec 2004 23:41:00 +0000 (+0000) Subject: r10179: 03 Dec 2004 Kevin Rosenberg X-Git-Tag: v3.8.6~203 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=1c1b8e0e9c08433f730352f4955d56feccca0488 r10179: 03 Dec 2004 Kevin Rosenberg * db-mysql/mysql-api.lisp: Commit patch from Paul Werkowski to fix structure name. * sql/database.lisp: More specific error message with trying to use a database value of NIL. --- diff --git a/ChangeLog b/ChangeLog index 276cb9d..9f7a7f5 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,9 @@ +03 Dec 2004 Kevin Rosenberg + * db-mysql/mysql-api.lisp: Commit patch from Paul Werkowski + to fix structure name. + * sql/database.lisp: More specific error message with trying + to use a database value of NIL. + 11 Nov 2004 Kevin Rosenberg * Version 3.1.1 * sql/generic-postgresql.lisp: Commit patch from Chris Capel to diff --git a/db-mysql/mysql-api.lisp b/db-mysql/mysql-api.lisp index 75ca09b..fb6bfbf 100644 --- a/db-mysql/mysql-api.lisp +++ b/db-mysql/mysql-api.lisp @@ -135,7 +135,7 @@ #+mysql-client-v4.1 (uffi:def-struct mysql-field (name (* :char)) - (org_table (* :char)) + (org_name (* :char)) (table (* :char)) (org_table (* :char)) (db (* :char)) diff --git a/sql/database.lisp b/sql/database.lisp index 706ccbf..285d3e2 100644 --- a/sql/database.lisp +++ b/sql/database.lisp @@ -63,7 +63,9 @@ error is signalled." :message (format nil "There exists ~A database called ~A." (if (zerop count) "no" "more than one") - database))))))) + database))))) + (null + (error "A database must be specified rather than NIL.")))) (defun connect (connection-spec