X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Foodml.lisp;h=187694dcacb5011d28b6900ffd186f0d20e058af;hp=85730dccf7d7f2eedf870992d567bf6a704a2fc4;hb=fc58e4fb7d908985389c86adf57ddee6c1dde5d2;hpb=7bc1653cd1b014311f72b0d43c5876b3facfbc6c

diff --git a/sql/oodml.lisp b/sql/oodml.lisp
index 85730dc..187694d 100644
--- a/sql/oodml.lisp
+++ b/sql/oodml.lisp
@@ -381,6 +381,10 @@
   (declare (ignore args database db-type))
   "TIMESTAMP")
 
+(defmethod database-get-type-specifier ((type (eql 'date)) args database db-type)
+  (declare (ignore args database db-type))
+  "DATE")
+
 (defmethod database-get-type-specifier ((type (eql 'duration)) args database db-type)
   (declare (ignore database args db-type))
   "VARCHAR")
@@ -584,6 +588,11 @@
   (unless (eq 'NULL val)
     (parse-timestring val)))
 
+(defmethod read-sql-value (val (type (eql 'date)) database db-type)
+  (declare (ignore database db-type))
+  (unless (eq 'NULL val)
+    (parse-datestring val)))
+
 (defmethod read-sql-value (val (type (eql 'duration)) database db-type)
   (declare (ignore database db-type))
   (unless (or (eq 'NULL val)