* db-mysql/mysql-sql.lisp: Apply patch from Yannick Gingras to
implement database-sequence-last.
+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]
26 Dec 2004 Kevin Rosenberg <kevin@rosenberg.net>
* doc/ref-fdml.lisp: Fix variable tag name to varname
[noted by Eduardo Munoz]
(mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database))))
(defmethod database-sequence-last (sequence-name (database mysql-database))
(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
(defmethod database-create (connection-spec (type (eql :mysql)))
(destructuring-bind (host name user password) connection-spec