X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=5149bb08a6db516621c89870892825fb292b90c7;hp=43a92012532c85bfdc51098c00bfb95e8e18601b;hb=d80d8b58af5e3074bca3e8830a04efb2578c2f11;hpb=261e0ddaf9252c4802bb5fbade1f4175171fdd4a

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 43a9201..5149bb0 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -34,6 +34,11 @@
       (format nil "CHAR(~A)" (car args))
     "VARCHAR"))
 
+(defmethod database-get-type-specifier ((type (eql 'tinyint)) args database
+					(db-type (eql :postgresql)))
+  (declare (ignore args database))
+  "INT2")
+
 (defmethod database-get-type-specifier ((type (eql 'smallint)) args database
 					(db-type (eql :postgresql)))
   (declare (ignore args database))