From adbb571cf319c49f1cad47f22c83982b5253d4b5 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 31 Mar 2004 23:48:44 +0000 Subject: [PATCH] r8801: v4 changes --- db-mysql/mysql-api.lisp | 12 +++++++++--- debian/changelog | 6 ++++++ 2 files changed, 15 insertions(+), 3 deletions(-) diff --git a/db-mysql/mysql-api.lisp b/db-mysql/mysql-api.lisp index d49a089..b3220b7 100644 --- a/db-mysql/mysql-api.lisp +++ b/db-mysql/mysql-api.lisp @@ -106,11 +106,11 @@ (:var-string 253) (:string 254))) -#-(or mysql-client-v3 mysql-client-v4) +#-(or :mysql-client-v3 :mysql-client-v4) (eval-when (:compile-toplevel :load-toplevel :execute) (pushnew :mysql-client-v3 cl:*features*)) -#+mysql-client-v3 +#+:mysql-client-v3 (uffi:def-struct mysql-field (name (* :char)) (table (* :char)) @@ -122,7 +122,7 @@ (decimals :unsigned-int)) ;; structure changed in mysql 4 client -#+mysql-client-v4 +#+:mysql-client-v4 (uffi:def-struct mysql-field (name (* :char)) (table (* :char)) @@ -251,7 +251,9 @@ :module "mysql" :returning (* mysql-mysql)) +#-mysql-client-v4 (declaim (inline mysql-connect)) +#-mysql-client-v4 (uffi:def-function "mysql_connect" ((mysql (* mysql-mysql)) (host :cstring) @@ -306,14 +308,18 @@ :module "mysql" :returning :int) +#-mysql-client-v4 (declaim (inline mysql-create-db)) +#-mysql-client-v4 (uffi:def-function "mysql_create_db" ((mysql (* mysql-mysql)) (db :cstring)) :module "mysql" :returning :int) +#-mysql-client-v4 (declaim (inline mysql-drop-db)) +#-mysql-client-v4 (uffi:def-function "mysql_drop_db" ((mysql (* mysql-mysql)) (db :cstring)) diff --git a/debian/changelog b/debian/changelog index 6cb96bb..abf0dea 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,3 +1,9 @@ +cl-sql (1.9.1-1) unstable; urgency=low + + * Add better support for mysql v4 + + -- Kevin M. Rosenberg Wed, 31 Mar 2004 16:48:30 -0700 + cl-sql (1.9.0-2) unstable; urgency=low * Add cl-sql-sqlite binary package -- 2.34.1