More code that should have been in the last patch.

[clsql.git] / sql / oodml.lisp

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))))