From 0bbfff4333e985e6a556d118d12cd23fa1d96a47 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Sun, 16 Nov 2003 02:57:17 +0000 Subject: [PATCH] r8216: fix documentation setting --- debian/changelog | 6 ++++++ mop.lisp | 6 ++++-- 2 files changed, 10 insertions(+), 2 deletions(-) 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 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 "")) -- 2.34.1