X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=db-mysql%2Fmysql-sql.lisp;h=5f1306811fdc2f9d6836591909cc661242ac4238;hp=82f43b8b177513a15714e5c05e37d9229714c86b;hb=3725c24dbf01d1f7ff8eacab7844e922dc74c4f5;hpb=c0f15eada06c0c53437a5b3acc72ab1cd3c72df1

diff --git a/db-mysql/mysql-sql.lisp b/db-mysql/mysql-sql.lisp
index 82f43b8..5f13068 100644
--- 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