X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=mop.lisp;h=3d00a79e85295d362d892961a7ccfb0f1b542ee4;hb=fa179cd84c44d2f0e4ea231537afc8a6733c406e;hp=528c99f58c77d311270ab78f796fa0ded9b4dd22;hpb=0817a8721cbefca2205dcde535ff6b164033abef;p=hyperobject.git

diff --git a/mop.lisp b/mop.lisp
index 528c99f..3d00a79 100644
--- 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)))