projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove from Debian package support for deprecated SQLite 2 library
[clsql.git]
/
sql
/
db-interface.lisp
diff --git
a/sql/db-interface.lisp
b/sql/db-interface.lisp
index 9c17b544dd0268993a6022e13b3677fadb107959..3454a84ee8d992372e07ba3abf7a7c3d07258a1c 100644
(file)
--- a/
sql/db-interface.lisp
+++ b/
sql/db-interface.lisp
@@
-167,6
+167,12
@@
if unable to destory."))
(defgeneric database-sequence-last (name database)
(:documentation "Select the last value in sequence NAME in DATABASE."))
(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 database-start-transaction (database)
(:documentation "Start a transaction in DATABASE.")
(:method ((database t))
@@
-374,8
+380,8
@@
of TYPE_NAME (keyword) PRECISION SCALE NULLABLE.")
(defgeneric db-type-has-auto-increment? (db-type)
(:method (db-type)
(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)
(:documentation "NIL [default] if database-type supports auto-incrementing columns."))
;;; Large objects support (Marc Battyani)