r1801: Added transaction code

[clsql.git] / interfaces / mysql / mysql-usql.cl

diff --git a/interfaces/mysql/mysql-usql.cl b/interfaces/mysql/mysql-usql.cl
index ea2b12ea104bd9a0d4d591f06fdb32c81aa77dc1..59a23b44f2a46e8bcd4e14bfe03dff71ea876242 100644 (file)
--- a/interfaces/mysql/mysql-usql.cl
+++ b/interfaces/mysql/mysql-usql.cl
@@ -7,7 +7,7 @@
 ;;;; Programmers:   Kevin M. Rosenberg and onShore Development Inc\r
 ;;;; Date Started:  Mar 2002\r
 ;;;;\r
-;;;; $Id: mysql-usql.cl,v 1.4 2002/04/27 21:12:32 kevin Exp $\r
+;;;; $Id: mysql-usql.cl,v 1.5 2002/04/27 21:48:08 kevin Exp $\r
 ;;;;\r
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
 ;;;; and by onShore Development Inc.\r
@@ -78,20 +78,6 @@
    database)\r
   (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database)))\r
 \r
-;; Transactions\r
-\r
-(defmethod database-start-transaction ((database mysql-database))\r
- "Start a transaction in DATABASE."\r
- (database-execute-command "BEGIN" database))\r
-\r
-(defmethod database-commit-transaction ((database mysql-database))\r
-  "Commit current transaction in DATABASE."\r
-  (database-execute-command "COMMIT" database))\r
-\r
-(defmethod database-abort-transaction ((database mysql-database))\r
-  "Abort current transaction in DATABASE."\r
-  (database-execute-command "ROLLBACK" database))\r
-\r
 ;; Misc USQL functions\r
 \r
 #+ignore\r