X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=sql%2Fgeneric-postgresql.lisp;h=5498ee2d0114f43cd2a5a77044da7df4b3cba972;hb=d2518bfbfd6a222e6f022ebd52ccce86fa2af926;hp=360d5fe4b1a623a8a412b9e3bf9fa40ec813f333;hpb=09d4a0ba8bcb0f3473ff14e8f5abc2f328b20261;p=clsql.git

diff --git a/sql/generic-postgresql.lisp b/sql/generic-postgresql.lisp
index 360d5fe..5498ee2 100644
--- a/sql/generic-postgresql.lisp
+++ b/sql/generic-postgresql.lisp
@@ -29,6 +29,14 @@
   (declare (ignore database db-type))
   val)
 
+(defmethod database-output-sql ((self wall-time) (database generic-postgresql-database))
+  (declare (ignore database))
+  (concatenate 'string "'" (format-time nil self :format :iso8601)  "'"))
+
+(defmethod database-output-sql ((self date) (database generic-postgresql-database))
+  (declare (ignore database))
+  (concatenate 'string "'" (format-time nil (date->time self) :format :iso8601)  "'"))
+
 (defmethod database-get-type-specifier (type args database
                                         (db-type (eql :postgresql)))
   (declare (ignore type args database))