From ee203eb66c696ddbbf13595002a4ccc651c1ada7 Mon Sep 17 00:00:00 2001 From: Nathan Bird Date: Mon, 8 Mar 2010 14:07:39 -0500 Subject: [PATCH] More code that should have been in the last patch. --- sql/db-interface.lisp | 2 +- sql/oodml.lisp | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp index 892a80e..e13adf6 100644 --- 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 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)))) -- 2.34.1