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 |
;FIXME |
(t |
68 |
(t nil))) |
(if (packagep symbol) |
69 |
; (t (error "~S is an illegal documentation type." doc-type)))) |
(get (find-symbol (package-name symbol) :keyword) 'package-documentation) |
70 |
|
(error "~S is an illegal documentation type." doc-type))))) |
71 |
|
|
72 |
|
|
73 |
(defun find-documentation (body) |
(defun find-documentation (body) |