From: Kevin M. Rosenberg Date: Tue, 28 Dec 2004 20:03:10 +0000 (+0000) Subject: r10234: 28 Dec 2004 Kevin Rosenberg X-Git-Tag: v3.8.6~194 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=3725c24dbf01d1f7ff8eacab7844e922dc74c4f5 r10234: 28 Dec 2004 Kevin Rosenberg * db-mysql/mysql-sql.lisp: Apply patch from Yannick Gingras to implement database-sequence-last. --- diff --git a/ChangeLog b/ChangeLog index e630206..3408ed6 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +28 Dec 2004 Kevin Rosenberg + * db-mysql/mysql-sql.lisp: Apply patch from Yannick Gingras to + implement database-sequence-last. + 26 Dec 2004 Kevin Rosenberg * 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 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