projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9804: * doc/ref-ooddl.xml: minor changes to syntax and examples entries
[clsql.git]
/
sql
/
generic-postgresql.lisp
diff --git
a/sql/generic-postgresql.lisp
b/sql/generic-postgresql.lisp
index 43a92012532c85bfdc51098c00bfb95e8e18601b..5149bb08a6db516621c89870892825fb292b90c7 100644
(file)
--- a/
sql/generic-postgresql.lisp
+++ b/
sql/generic-postgresql.lisp
@@
-34,6
+34,11
@@
(format nil "CHAR(~A)" (car args))
"VARCHAR"))
(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))
(defmethod database-get-type-specifier ((type (eql 'smallint)) args database
(db-type (eql :postgresql)))
(declare (ignore args database))