X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;ds=sidebyside;f=sql%2Fgenerics.lisp;fp=sql%2Fgenerics.lisp;h=6d2e57043c390b1f8cc29de3528062282d18038e;hb=ef93cbe09e01bb540651e6719eb4e8fe7ebeefd0;hp=f022ff92947c6614368b9c61fad0e5295b54b7a3;hpb=818295fa37036acb348ff24ea926b9d7c9f33cba;p=clsql.git

diff --git a/sql/generics.lisp b/sql/generics.lisp
index f022ff9..6d2e570 100644
--- a/sql/generics.lisp
+++ b/sql/generics.lisp
@@ -139,7 +139,8 @@ 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)
+  )
 
 ;; Generation of SQL strings from lisp expressions