X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=43a92012532c85bfdc51098c00bfb95e8e18601b;hp=cf3fac370c5dfa8c0e0448290b2607f2f4bcf34c;hb=d528dfe7e23fe5732fdbf1a282498fbec298d6cd;hpb=035a6fe046ae78bb10c7a7d039ed1ce1028e8424

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index cf3fac3..43a9201 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -32,7 +32,12 @@
   (declare (ignore database))
   (if args
       (format nil "CHAR(~A)" (car args))
-      "VARCHAR"))
+    "VARCHAR"))
+
+(defmethod database-get-type-specifier ((type (eql 'smallint)) args database
+					(db-type (eql :postgresql)))
+  (declare (ignore args database))
+  "INT2")
 
 (defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
 					(db-type (eql :postgresql)))