r8216: fix documentation setting

[hyperobject.git] / mop.lisp

diff --git a/mop.lisp b/mop.lisp
index 3d00a79e85295d362d892961a7ccfb0f1b542ee4..5307f3ed545f07ed60be74ca9ee88378f1ab2cce 100644 (file)
--- 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)
@@ -446,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 ""))