Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!cis.ohio-state.edu!tut.cis.ohio-state.edu!unreplyable!garbage
From: staley@CARNAP.SRL.FORD.COM
Newsgroups: comp.lang.clos
Subject: Slot Documentation
Message-ID: <9106131302.AA02732@carnap>
Date: 13 Jun 91 13:02:59 GMT
Sender: welch@tut.cis.ohio-state.edu
Distribution: inet
Organization: CommonLoops
Lines: 21



PCLers,

What is the preferred way to retrieve the documentation string from a slot?
I can use the following to get the class documentation:

;;;
;;; Class-Documentation
;;;

(defun Class-Documentation (x)
"Syntax: (Class-Documentation 'x)
Returns the class-documentation associated with the class named x. x is
a symbol (or evaluates) to a symbol naming a class; it is not a class object."
  (pprint (car (pcl::documentation (find-class x)))) t)

BUT I have not found a similarly easy way to get slot documentation. Thanks
in advance.

-Scott