+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
: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)
(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 ""))