(defgeneric database-sequence-last (name database)
(:documentation "Select the last value in sequence NAME in DATABASE."))
+(defgeneric database-last-autoincrement-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." ))
+
+
(defgeneric database-start-transaction (database)
(:documentation "Start a transaction in DATABASE.")
(:method ((database t))
(defgeneric db-type-has-auto-increment? (db-type)
(:method (db-type)
- (declare (ignore db-type)
- nil))
+ (declare (ignore db-type))
+ nil)
(:documentation "NIL [default] if database-type supports auto-incrementing columns."))
;;; Large objects support (Marc Battyani)