X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=interfaces%2Fmysql%2Fmysql-usql.cl;h=311bf67df13ef78b561ffa5533e15e4d7811848c;hb=42a951e9f7152e7c145958f4dfed41d4e865c9fd;hp=ea2b12ea104bd9a0d4d591f06fdb32c81aa77dc1;hpb=6ba23404433eaf240f37e2905aed999a4d4bf342;p=clsql.git

diff --git a/interfaces/mysql/mysql-usql.cl b/interfaces/mysql/mysql-usql.cl
index ea2b12e..311bf67 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.6 2002/05/27 17:19:30 kevin Exp $
 ;;;;
 ;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;; and by onShore Development Inc.
@@ -78,22 +78,9 @@
    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
 (defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp) 
 				(database mysql-database))
@@ -115,3 +102,4 @@
     (make-instance 'clsql-sys::sql-typecast-exp
                    :modifier 'int8
                    :components val)))
+|#