From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Thu, 30 Oct 2003 04:08:52 +0000 (+0000)
Subject: r8079: add datetime format
X-Git-Tag: debian-2.11.0-2~36
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=af7152b8b0612420d327a422fa1d376c21daf3fb

r8079: add datetime format
---

diff --git a/metaclass.lisp b/metaclass.lisp
index 336a1ea..558cbeb 100644
--- a/metaclass.lisp
+++ b/metaclass.lisp
@@ -19,6 +19,7 @@
   '(:user-name :default-print-slots :description :version :sql-name
     :guid :version :direct-functions :direct-views :direct-rules)
   "List of class options for hyperobjects.")
+
 (defparameter *slot-options*
   '(:value-type :print-formatter :description :short-description :user-name
     :subobject :hyperlink :hyperlink-parameters :indexed :inverse :unique
@@ -26,6 +27,7 @@
     :value-constraint :void-text :read-only-groups :hidden-groups :unit
     :disable-predicate :view-type :list-of-values)
   "Slot options that can appear as an initarg")
+
 (defparameter *slot-options-no-initarg*
   '(:ho-type :sql-type :sql-length)
   "Slot options that do not have an initarg")
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)))