Parent Directory | Revision Log | Patch
revision 1.1.1.1 by wfs, Mon Dec 6 22:44:07 1999 UTC | revision 1.2 by camm, Wed Oct 9 03:46:33 2002 UTC | |
---|---|---|
# | Line 64 | Line 64 |
64 | (structure (get symbol 'structure-documentation)) | (structure (get symbol 'structure-documentation)) |
65 | (type (get symbol 'type-documentation)) | (type (get symbol 'type-documentation)) |
66 | (setf (get symbol 'setf-documentation)) | (setf (get symbol 'setf-documentation)) |
67 | (t (error "~S is an illegal documentation type." doc-type)))) | ;FIXME |
68 | (t nil))) | |
69 | ; (t (error "~S is an illegal documentation type." doc-type)))) | |
70 | ||
71 | ||
72 | (defun find-documentation (body) | (defun find-documentation (body) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |