27 |
|
|
28 |
(export '(*modules* provide require)) |
(export '(*modules* provide require)) |
29 |
(export 'documentation) |
(export 'documentation) |
30 |
(export '(variable function structure type setf)) |
(export '(variable function structure type setf compiler-macro)) |
31 |
|
|
32 |
(in-package 'system) |
(in-package 'system) |
33 |
|
|
67 |
(setf (get symbol 'setf-documentation)) |
(setf (get symbol 'setf-documentation)) |
68 |
(compiler-macro (get symbol 'compiler-macro-documentation)) |
(compiler-macro (get symbol 'compiler-macro-documentation)) |
69 |
(method-combination (get symbol 'method-combination-documentation)) |
(method-combination (get symbol 'method-combination-documentation)) |
70 |
(t |
(otherwise |
71 |
(if (packagep symbol) |
(cond |
72 |
(get (find-symbol (package-name symbol) :keyword) 'package-documentation) |
((packagep symbol) |
73 |
(error "~S is an illegal documentation type." doc-type))))) |
(get (find-symbol (package-name symbol) :keyword) 'package-documentation)) |
74 |
|
((eql doc-type t) nil) |
75 |
|
(t (error "~S is an illegal documentation type." doc-type)))))) |
76 |
|
|
77 |
|
|
78 |
(defun find-documentation (body) |
(defun find-documentation (body) |
85 |
(eq (car form) 'declare)) |
(eq (car form) 'declare)) |
86 |
(find-documentation (cdr body)) |
(find-documentation (cdr body)) |
87 |
nil))))) |
nil))))) |
|
|
|
|
|
|