r2261: *** empty log message ***

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

diff --git a/interfaces/mysql/mysql-usql.cl b/interfaces/mysql/mysql-usql.cl
index ea2b12ea104bd9a0d4d591f06fdb32c81aa77dc1..311bf67df13ef78b561ffa5533e15e4d7811848c 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.6 2002/05/27 17:19:30 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,22 +78,9 @@
    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
+#|\r
 #+ignore\r
 (defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp) \r
                                (database mysql-database))\r
@@ -115,3 +102,4 @@
     (make-instance 'clsql-sys::sql-typecast-exp\r
                    :modifier 'int8\r
                    :components val)))\r
+|#\r