X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=3454a84ee8d992372e07ba3abf7a7c3d07258a1c;hp=9c17b544dd0268993a6022e13b3677fadb107959;hb=084cdcffae7d4734d0fe9927eca8a76d83f5f0e2;hpb=406feeb749bb475bec8077a2716a5b6089bd9072

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 9c17b54..3454a84 100644
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -167,6 +167,12 @@ 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))
@@ -374,8 +380,8 @@ of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
 
 (defgeneric db-type-has-auto-increment? (db-type)
   (:method (db-type)
-    (declare (ignore db-type)
-	     nil))
+    (declare (ignore db-type))
+	     nil)
   (:documentation "NIL [default] if database-type supports auto-incrementing columns."))
 
 ;;; Large objects support (Marc Battyani)