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