[comp.lang.clos] Slot documentation

staley@CARNAP.SRL.FORD.COM (06/13/91)

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

ntm1169@dsac.dla.mil (Mott Given) (06/20/91)

   I am posting this for Dr. Staley.

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
-----------------------------------------------------------------------------
-- 
Mott Given @ Defense Logistics Agency Systems Automation Center,
             DSAC-TMP, Bldg. 27-1, P.O. Box 1605, Columbus, OH 43216-5002
INTERNET:  mgiven@dsac.dla.mil   UUCP: ...{osu-cis}!dsac!mgiven
Phone:  614-238-9431  AUTOVON: 850-9431   FAX: 614-238-9928 I speak for myself