X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fmysql%2Fmysql-usql.cl;h=59a23b44f2a46e8bcd4e14bfe03dff71ea876242;hb=d302d2db4f7ff7a31bce893e31aecbc2a84a162f;hp=ea2b12ea104bd9a0d4d591f06fdb32c81aa77dc1;hpb=70bb533caf487a64e186513583954681abf64f33;p=clsql.git

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