X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=45ad1fb5b58a0c1581af93f3b0e4b2ed42b02356;hp=af0ef61fabb0ff15a91f65792d33313771af8677;hb=9242af658c4978cba02cdfde02d5337a04788978;hpb=7308bdf188da6424e615ca14096ef53cfb845a90

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index af0ef61..45ad1fb 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -1,7 +1,7 @@
 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
 ;;;; *************************************************************************
 ;;;;
-;;;; $Id$
+;;;; $Id: $
 ;;;;
 ;;;; Generic postgresql layer, used by db-postgresql and db-postgresql-socket
 ;;;;
@@ -227,3 +227,12 @@
            (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)
+