X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgenerics.lisp;h=b0a44725e766490248ab2373d41df8047e96af02;hp=860771e862eda4191a3c1d9feba37ab84536fff3;hb=c680432aea0177677ae2ee7b810a7404f7a05cab;hpb=d2d49ab13c98bc7a1819a0fd3968268a5567bdc3

diff --git a/sql/generics.lisp b/sql/generics.lisp
index 860771e..b0a4472 100644
--- a/sql/generics.lisp
+++ b/sql/generics.lisp
@@ -72,7 +72,7 @@ represented by SLOTS are initialised from the values of the
 supplied slots with other attributes having default
 values. Furthermore, OBJECT becomes associated with DATABASE."))
 
-(defgeneric update-records-from-instance (object &key database)
+(defgeneric update-records-from-instance (object &key database this-class)
   (:documentation
    "Using an instance of a View Class, OBJECT, update the table
 that stores its instance data. DATABASE defaults to
@@ -88,7 +88,7 @@ associated with DATABASE."))
 table of the database associated with OBJECT. If OBJECT is not
 yet associated with a database, an error is signalled."))
 
-(defgeneric update-instance-from-records (object &key database)
+(defgeneric update-instance-from-records (object &key database this-class)
   (:documentation
    "Updates the slot values of the View Class instance OBJECT
 using the attribute values of the appropriate table of DATABASE
@@ -139,7 +139,11 @@ DATABASE-NULL-VALUE on the type of the slot."))
   )
 (defgeneric read-sql-value  (val type database db-type)
   )
+(defgeneric database-make-autoincrement-sequence (class slotdef database)
+  )
 
+(defgeneric database-last-auto-increment-id (database table column)
+  )
 
 ;; Generation of SQL strings from lisp expressions