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

[clsql.git] / db-mysql / mysql-sql.lisp

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