r11062: Remove old mysql C API functions

diff --git a/ChangeLog b/ChangeLog
index 4036c1066b8853324d7b753a597b7a10dad4fcc1..bcc3a850c9d9e172f8f1e31f24e90e3661382631 100644 (file)
--- 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 <kevin@rosenberg.net>
        * Version 3.6.7

diff --git a/db-mysql/mysql-api.lisp b/db-mysql/mysql-api.lisp
index 026bde07744211ace6735979ac06b812203152d7..39af26f02add0b6c128957947042b2f4d445a86c 100644 (file)
--- 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)))