X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fdb-interface.lisp;h=62436309b25e550bf877a09f493c4e65d74bafdc;hb=692ff4990d0cd04685531f524801b16d21cfbb49;hp=84702b9c940e7170c69beb23ae01d57c8e284f5e;hpb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;p=clsql.git

diff --git a/sql/db-interface.lisp b/sql/db-interface.lisp
index 84702b9..6243630 100644
--- a/sql/db-interface.lisp
+++ b/sql/db-interface.lisp
@@ -244,6 +244,12 @@ of TYPE_NAME (keyword) PRECISION SCALE NULLABLE."))
 	   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))