From ae8a67aac10c0b2ccff4a14a13667d75c074eeed Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Wed, 30 Aug 2006 10:47:38 +0000 Subject: [PATCH] r11062: Remove old mysql C API functions --- ChangeLog | 2 ++ db-mysql/mysql-api.lisp | 29 ----------------------------- 2 files changed, 2 insertions(+), 29 deletions(-) diff --git a/ChangeLog b/ChangeLog index 4036c10..bcc3a85 100644 --- a/ChangeLog +++ b/ChangeLog @@ -9,6 +9,8 @@ * sql/loop-extension.lisp: Define loop-record-iteration-path in CLSQL-SYS package rather than CL-USER. Add support for ansi-loop on clisp. * sql/ansi-loop.lisp: New file to support iteration on clisp. + * db-mysql/mysql-api: Remove old mysql C API functions that no longer + exist. 28 Aug 2006 Kevin Rosenberg * Version 3.6.7 diff --git a/db-mysql/mysql-api.lisp b/db-mysql/mysql-api.lisp index 026bde0..39af26f 100644 --- a/db-mysql/mysql-api.lisp +++ b/db-mysql/mysql-api.lisp @@ -309,17 +309,6 @@ :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) - (user :cstring) - (passwd :cstring)) - :module "mysql" - :returning (* mysql-mysql)) - ;; Need to comment this out for LW 4.2.6 ;; ? bug in LW version #-lispworks (declaim (inline mysql-real-connect)) @@ -366,24 +355,6 @@ :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)) - :module "mysql" - :returning :int) - (declaim (inline mysql-shutdown)) (uffi:def-function "mysql_shutdown" ((mysql (* mysql-mysql))) -- 2.34.1