projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9389: Additions to doc/TODO.
[clsql.git]
/
sql
/
db-interface.lisp
diff --git
a/sql/db-interface.lisp
b/sql/db-interface.lisp
index 84702b9c940e7170c69beb23ae01d57c8e284f5e..64841728855094f6461f77a9c03a4d4ab4f5b805 100644
(file)
--- a/
sql/db-interface.lisp
+++ b/
sql/db-interface.lisp
@@
-218,6
+218,13
@@
of TYPE_NAME (keyword) PRECISION SCALE NULLABLE."))
t)
(:documentation "T [default] if database-type supports views."))
t)
(:documentation "T [default] if database-type supports views."))
+(defgeneric db-type-has-bigint? (db-type)
+ (:method (db-type)
+ (declare (ignore db-type))
+ ;; SQL92 has bigint
+ t)
+ (:documentation "T [default] if database-type supports bigint."))
+
(defgeneric db-type-default-case (db-type)
(:method (db-type)
(declare (ignore db-type))
(defgeneric db-type-default-case (db-type)
(:method (db-type)
(declare (ignore db-type))
@@
-244,6
+251,12
@@
of TYPE_NAME (keyword) PRECISION SCALE NULLABLE."))
t)
(:documentation "T [default] if database-type supports boolean WHERE clause, such as 'WHERE MARRIED'."))
t)
(:documentation "T [default] if database-type supports boolean WHERE clause, such as 'WHERE MARRIED'."))
+(defgeneric db-type-has-union? (db-type)
+ (:method (db-type)
+ (declare (ignore db-type))
+ t)
+ (:documentation "T [default] if database-type supports boolean UNION."))
+
(defgeneric db-backend-has-create/destroy-db? (db-type)
(:method (db-type)
(declare (ignore db-type))
(defgeneric db-backend-has-create/destroy-db? (db-type)
(:method (db-type)
(declare (ignore db-type))