From 22f7e6b89693eec2204d85b066d6548d29d80017 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Mon, 4 May 1998 00:08:32 +0000
Subject: [PATCH] If no documentation is found associated with a lisp class
 then check if there is any associated with its respective PCL class.

---
 pcl/cmucl-documentation.lisp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/pcl/cmucl-documentation.lisp b/pcl/cmucl-documentation.lisp
index 76aba150b..5df3acbe3 100644
--- a/pcl/cmucl-documentation.lisp
+++ b/pcl/cmucl-documentation.lisp
@@ -4,7 +4,7 @@
 ;;; the public domain, and is provided 'as is'.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.5 1997/09/16 17:12:13 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/cmucl-documentation.lisp,v 1.6 1998/05/04 00:08:32 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -59,12 +59,22 @@
 (defmethod documentation ((x structure-class) (doc-type (eql 't)))
   (values (ext:info type documentation (class-name x))))
 
+(defmethod documentation ((x lisp:standard-class) (doc-type (eql 't)))
+  (or (values (ext:info type documentation (lisp:class-name x)))
+      (let ((pcl-class (kernel:class-pcl-class x)))
+	(and pcl-class (plist-value pcl-class 'documentation)))))
+
 (defmethod documentation ((x lisp:structure-class) (doc-type (eql 'type)))
   (values (ext:info type documentation (lisp:class-name x))))
 
 (defmethod documentation ((x structure-class) (doc-type (eql 'type)))
   (values (ext:info type documentation (class-name x))))
 
+(defmethod documentation ((x lisp:standard-class) (doc-type (eql 'type)))
+  (or (values (ext:info type documentation (lisp:class-name x)))
+      (let ((pcl-class (kernel:class-pcl-class x)))
+	(and pcl-class (plist-value pcl-class 'documentation)))))
+
 (defmethod documentation ((x symbol) (doc-type (eql 'type)))
   (or (values (ext:info type documentation x))
       (let ((class (find-class x nil)))
-- 
GitLab