X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=c196a4568d46106e58d75dbf4a61429c1181759b;hb=fd2493718d0e1114fcbe3dd578dab658ea383e81;hp=ac01e7ba073ecdfe4d2dcb91039c12796f8d3706;hpb=4e51fc4d6755b1d32f3b2f7ebb43eb73ff96bbbb;p=clsql.git

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index ac01e7b..c196a45 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -49,6 +49,16 @@
   (declare (ignore args database))
   "TIMESTAMP WITHOUT TIME ZONE")
 
+(defmethod database-get-type-specifier ((type (eql 'number)) args database
+                                        (db-type (eql :postgresql)))
+  (declare (ignore database db-type))
+  (cond
+   ((and (consp args) (= (length args) 2))
+    (format nil "NUMERIC(~D,~D)" (first args) (second args)))
+   ((and (consp args) (= (length args) 1))
+    (format nil "NUMERIC(~D)" (first args)))
+   (t
+    "NUMERIC")))
 
 ;;; Backend functions