r8079: add datetime format

diff --git a/metaclass.lisp b/metaclass.lisp
index 336a1ea39db261036daaff2ad70b7e310b40cfdb..558cbebd4e2db3c0b02c4d69cfce9718522ea3d2 100644 (file)
--- 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.")
   '(: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
 (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")
     :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")
 (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 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))
   (case (base-value-type value-type)
     ((:string :cdata :varchar :char)
      '(or null string))

+    (:datetime
+     '(or null integer))

     (:character
      '(or null character))
     (:fixnum
     (:character
      '(or null character))
     (:fixnum


@@ -345,6 +347,8 @@ SQL name"
        :single-float)
        (:double-float
        :double-float)
        :single-float)
        (:double-float
        :double-float)

+       (:datetime
+        :long-integer)

        (otherwise
        :text))
      length)))
        (otherwise
        :text))
      length)))