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

diff --git a/mop.lisp b/mop.lisp
index 528c99f..5307f3e 100644
--- a/mop.lisp
+++ b/mop.lisp
@@ -64,7 +64,9 @@
 	     :documentation "Unique ID for the class")
    (default-view :initform nil :initarg :default-view :accessor default-view
 		 :documentation "The default view for a class")
-
+   (documementation :initform nil :initarg :documentation
+		    :documentation "Documentation string for hyperclass.")
+   
    ;; SQL commands
    (create-table-cmd :initform nil :reader create-table-cmd)
    (create-indices-cmds :initform nil :reader create-index-cmds)
@@ -309,6 +311,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 +349,8 @@ SQL name"
 	:single-float)
        (:double-float
 	:double-float)
+       (:datetime
+        :long-integer)
        (otherwise
 	:text))
      length)))
@@ -442,7 +448,7 @@ SQL name"
 (defun finalize-documentation (cl)
   "Calculate class documentation slot"
   (let ((*print-circle* nil))
-    (setf (documentation (class-name cl) 'class)
+    (setf (documentation cl 'type)
 	  (format nil "Hyperobject~A~A~A~A"
 		  (aif (user-name cl)
 		       (format nil ": ~A" it ""))