First draft at making auto-increment more general.

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

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 9c17b544dd0268993a6022e13b3677fadb107959..892a80e35b3cd5e96d825d2b1c96f05f2938ca77 100644 (file)
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -167,6 +167,11 @@ if unable to destory."))
 (defgeneric database-sequence-last (name database)
   (:documentation "Select the last value in sequence NAME in DATABASE."))
 
+(defgeneric database-last-autoincrement-id (database table column)
+  (:documentation "Many databases have the notion of an auto-increment
+  id; i.e. a sequence implicitly on a table. This function should
+  return that ID." ))
+
 (defgeneric database-start-transaction (database)
   (:documentation "Start a transaction in DATABASE.")
   (:method ((database t))