r8079: add datetime format

[hyperobject.git] / mop.lisp

diff --git a/mop.lisp b/mop.lisp
index 528c99f58c77d311270ab78f796fa0ded9b4dd22..3d00a79e85295d362d892961a7ccfb0f1b542ee4 100644 (file)
--- a/mop.lisp
+++ b/mop.lisp
@@ -309,6 +309,8 @@ SQL name"
   (case (base-value-type value-type)
     ((:string :cdata :varchar :char)
      '(or null string))
+    (:datetime
+     '(or null integer))
     (:character
      '(or null character))
     (:fixnum
@@ -345,6 +347,8 @@ SQL name"
        :single-float)
        (:double-float
        :double-float)
+       (:datetime
+        :long-integer)
        (otherwise
        :text))
      length)))