r9457: Reworked CLSQL file structure.

[clsql.git] / sql / generic-postgresql.lisp

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index af0ef61fabb0ff15a91f65792d33313771af8677..6716d14eabac8673c7dabebbc0135d81c03eac6d 100644 (file)
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -227,3 +227,12 @@
            (sql-escape (string-downcase table)))
    database :auto nil))
 
            (sql-escape (string-downcase table)))
    database :auto nil))
 

+
+;; Capabilities
+
+(defmethod db-type-has-fancy-math? ((db-type (eql :postgresql)))
+  t)
+
+(defmethod db-type-default-case ((db-type (eql :postgresql)))
+  :lower)
+