More code that should have been in the last patch.

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 892a80e35b3cd5e96d825d2b1c96f05f2938ca77..e13adf63ba26b3809dd80e59568390a6c01e89be 100644 (file)
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -167,7 +167,7 @@ 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)
+(defgeneric database-last-auto-increment-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." ))

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index e50905e93436755f53f37bbc49ce9f3bcc06412e..b6f4b417185961e6c3eefac98bf346bbcf13eee9 100644 (file)
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -234,7 +234,7 @@
                  (when (and pk-slot (not pk))
                    (setf pk (if (member :auto-increment (listify (view-class-slot-db-constraints pk-slot)))
                                 (setf (slot-value obj (slot-definition-name pk-slot))
-                                      (database-last-autoincrement-id database
+                                      (database-last-auto-increment-id database
                                                                       table
                                                                       pk-slot))))