projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r9739: 7 Jul 2004 Kevin Rosenberg <kevin@rosenberg.net>
[clsql.git]
/
sql
/
generic-postgresql.lisp
diff --git
a/sql/generic-postgresql.lisp
b/sql/generic-postgresql.lisp
index cf3fac370c5dfa8c0e0448290b2607f2f4bcf34c..43a92012532c85bfdc51098c00bfb95e8e18601b 100644
(file)
--- 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))
(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)))
(defmethod database-get-type-specifier ((type (eql 'wall-time)) args database
(db-type (eql :postgresql)))