X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=b6f4b417185961e6c3eefac98bf346bbcf13eee9;hp=e50905e93436755f53f37bbc49ce9f3bcc06412e;hb=ee203eb66c696ddbbf13595002a4ccc651c1ada7;hpb=3c3aa36478f0609e60d83e6c936bf2096fcae726

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index e50905e..b6f4b41 100644
--- 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))))