From 1c1b8e0e9c08433f730352f4955d56feccca0488 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 3 Dec 2004 23:41:00 +0000 Subject: [PATCH] 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. --- ChangeLog | 6 ++++++ db-mysql/mysql-api.lisp | 2 +- sql/database.lisp | 4 +++- 3 files changed, 10 insertions(+), 2 deletions(-) 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 -- 2.34.1