Skip to content
Snippets Groups Projects
Commit 22f7e6b8 authored by dtc's avatar dtc
Browse files

If no documentation is found associated with a lisp class then check

if there is any associated with its respective PCL class.
parent ad873816
No related branches found
No related tags found
No related merge requests found
...@@ -4,7 +4,7 @@ ...@@ -4,7 +4,7 @@
;;; the public domain, and is provided 'as is'. ;;; the public domain, and is provided 'as is'.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -59,12 +59,22 @@
(defmethod documentation ((x structure-class) (doc-type (eql 't))) (defmethod documentation ((x structure-class) (doc-type (eql 't)))
(values (ext:info type documentation (class-name x)))) (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))) (defmethod documentation ((x lisp:structure-class) (doc-type (eql 'type)))
(values (ext:info type documentation (lisp:class-name x)))) (values (ext:info type documentation (lisp:class-name x))))
(defmethod documentation ((x structure-class) (doc-type (eql 'type))) (defmethod documentation ((x structure-class) (doc-type (eql 'type)))
(values (ext:info type documentation (class-name x)))) (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))) (defmethod documentation ((x symbol) (doc-type (eql 'type)))
(or (values (ext:info type documentation x)) (or (values (ext:info type documentation x))
(let ((class (find-class x nil))) (let ((class (find-class x nil)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment