From 3725c24dbf01d1f7ff8eacab7844e922dc74c4f5 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 28 Dec 2004 20:03:10 +0000 Subject: [PATCH] r10234: 28 Dec 2004 Kevin Rosenberg * db-mysql/mysql-sql.lisp: Apply patch from Yannick Gingras to implement database-sequence-last. --- ChangeLog | 4 ++++ db-mysql/mysql-sql.lisp | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) 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 -- 2.34.1