From: Kevin M. Rosenberg <kevin@rosenberg.net>
Date: Sun, 16 Nov 2003 02:57:17 +0000 (+0000)
Subject: r8216: fix documentation setting
X-Git-Tag: debian-2.11.0-2~33
X-Git-Url: http://git.kpe.io/?p=hyperobject.git;a=commitdiff_plain;h=0bbfff4333e985e6a556d118d12cd23fa1d96a47

r8216: fix documentation setting
---

diff --git a/debian/changelog b/debian/changelog
index 5ccf133..ba2df96 100644
--- a/debian/changelog
+++ b/debian/changelog
@@ -1,3 +1,9 @@
+cl-hyperobject (2.8.7-1) unstable; urgency=low
+
+  * Fix invalid setting of documentation for hyperobject-class
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Sat, 15 Nov 2003 19:32:25 -0700
+
 cl-hyperobject (2.8.6-1) unstable; urgency=low
 
   * New upstream
diff --git a/mop.lisp b/mop.lisp
index 3d00a79..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)
@@ -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 ""))