r10234: 28 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>

        * db-mysql/mysql-sql.lisp: Apply patch from Yannick Gingras to
        implement database-sequence-last.

diff --git a/ChangeLog b/ChangeLog
index e630206582ae900d025e7a8b7754d811e20911fb..3408ed667556991d066e8d03993c7ac737329f52 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+28 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
+       * db-mysql/mysql-sql.lisp: Apply patch from Yannick Gingras to
+       implement database-sequence-last.
+       
 26 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
         * doc/ref-fdml.lisp: Fix variable tag name to varname
        [noted by Eduardo Munoz]

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 82f43b8b177513a15714e5c05e37d9229714c86b..5f1306811fdc2f9d6836591909cc661242ac4238 100644 (file)
--- a/db-mysql/mysql-sql.lisp
+++ b/db-mysql/mysql-sql.lisp
@@ -387,7 +387,11 @@
    (mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database))))
 
 (defmethod database-sequence-last (sequence-name (database mysql-database))
-  (declare (ignore sequence-name)))
+  (without-interrupts
+    (caar (database-query 
+          (concatenate 'string "SELECT id from " 
+                       (%sequence-name-to-table sequence-name))
+          database :auto nil))))
 
 (defmethod database-create (connection-spec (type (eql :mysql)))
   (destructuring-bind (host name user password) connection-spec