91 |
(equal doc (documentation fn t)))))) |
(equal doc (documentation fn t)))))) |
92 |
"FOO4") |
"FOO4") |
93 |
|
|
94 |
|
(deftest documentation.function.t.9 |
95 |
|
(loop for s in *cl-function-symbols* |
96 |
|
for fn = (symbol-function s) |
97 |
|
for doc = (documentation fn t) |
98 |
|
unless (or (null doc) (string doc)) |
99 |
|
collect (list s doc)) |
100 |
|
nil) |
101 |
|
|
102 |
|
(deftest documentation.function.t.10 |
103 |
|
(loop for s in *cl-accessor-symbols* |
104 |
|
for fn = (symbol-function s) |
105 |
|
for doc = (documentation fn t) |
106 |
|
unless (or (null doc) (string doc)) |
107 |
|
collect (list s doc)) |
108 |
|
nil) |
109 |
|
|
110 |
|
(deftest documentation.function.t.11 |
111 |
|
(loop for s in *cl-macro-symbols* |
112 |
|
for fn = (macro-function s) |
113 |
|
for doc = (documentation fn t) |
114 |
|
unless (or (null doc) (string doc)) |
115 |
|
collect (list s doc)) |
116 |
|
nil) |
117 |
|
|
118 |
|
(deftest documentation.function.t.12 |
119 |
|
(loop for s in *cl-standard-generic-function-symbols* |
120 |
|
for fn = (symbol-function s) |
121 |
|
for doc = (documentation fn t) |
122 |
|
unless (or (null doc) (string doc)) |
123 |
|
collect (list s doc)) |
124 |
|
nil) |
125 |
|
|
126 |
;;; documentation (x function) (doc-type (eql 'function)) |
;;; documentation (x function) (doc-type (eql 'function)) |
127 |
|
|
128 |
(deftest documentation.function.function.1 |
(deftest documentation.function.function.1 |
145 |
(deftest documentation.function.function.3 |
(deftest documentation.function.function.3 |
146 |
(let* ((sym (gensym))) |
(let* ((sym (gensym))) |
147 |
(eval `(defmacro ,sym () nil)) |
(eval `(defmacro ,sym () nil)) |
148 |
(documentation (symbol-function sym) 'function)) |
(documentation (macro-function sym) 'function)) |
149 |
nil) |
nil) |
150 |
|
|
151 |
(deftest documentation.function.function.4 |
(deftest documentation.function.function.4 |
175 |
(equal doc (documentation fn 'function)))))) |
(equal doc (documentation fn 'function)))))) |
176 |
"FOO4A") |
"FOO4A") |
177 |
|
|
|
|
|
178 |
;;; documentation (x list) (doc-type (eql 'function)) |
;;; documentation (x list) (doc-type (eql 'function)) |
179 |
|
|
180 |
(deftest documentation.list.function.1 |
(deftest documentation.list.function.1 |
263 |
(equal doc (documentation sym 'function))))))) |
(equal doc (documentation sym 'function))))))) |
264 |
"FOO9B") |
"FOO9B") |
265 |
|
|
266 |
|
(deftest documentation.symbol.function.7 |
267 |
|
(loop for s in *cl-special-operator-symbols* |
268 |
|
for doc = (documentation s 'function) |
269 |
|
unless (or (null doc) (stringp doc)) |
270 |
|
collect (list s doc)) |
271 |
|
nil) |
272 |
|
|
273 |
|
(deftest documentation.symbol.function.8 |
274 |
|
(loop for s in *cl-function-or-accessor-symbols* |
275 |
|
for doc = (documentation s 'function) |
276 |
|
unless (or (null doc) (stringp doc)) |
277 |
|
collect (list s doc)) |
278 |
|
nil) |
279 |
|
|
280 |
|
(deftest documentation.symbol.function.9 |
281 |
|
(loop for s in *cl-macro-symbols* |
282 |
|
for doc = (documentation s 'function) |
283 |
|
unless (or (null doc) (stringp doc)) |
284 |
|
collect (list s doc)) |
285 |
|
nil) |
286 |
|
|
287 |
;;; documentation (x symbol) (doc-type (eql 'compiler-macro)) |
;;; documentation (x symbol) (doc-type (eql 'compiler-macro)) |
288 |
|
|
289 |
(deftest documentation.symbol.compiler-macro.1 |
(deftest documentation.symbol.compiler-macro.1 |
421 |
(equal doc (documentation class 'type))))))) |
(equal doc (documentation class 'type))))))) |
422 |
nil "FOO17") |
nil "FOO17") |
423 |
|
|
424 |
|
|
425 |
;;; documentation (x structure-class) (doc-type (eql 't)) |
;;; documentation (x structure-class) (doc-type (eql 't)) |
426 |
|
|
427 |
(deftest documentation.struct-class.t.1 |
(deftest documentation.struct-class.t.1 |
495 |
(equal doc (documentation sym 'type)))))) |
(equal doc (documentation sym 'type)))))) |
496 |
nil "FOO21A") |
nil "FOO21A") |
497 |
|
|
498 |
|
(deftest documentation.symbol.type.4 |
499 |
|
(loop for s in *cl-all-type-symbols* |
500 |
|
for doc = (documentation s 'type) |
501 |
|
unless (or (null doc) (stringp doc)) |
502 |
|
collect (list doc)) |
503 |
|
nil) |
504 |
|
|
505 |
|
|
506 |
;;; documentation (x symbol) (doc-type (eql 'structure)) |
;;; documentation (x symbol) (doc-type (eql 'structure)) |
507 |
|
|
508 |
(deftest documentation.symbol.structure.1 |
(deftest documentation.symbol.structure.1 |
598 |
(equal doc (documentation sym 'variable)))))) |
(equal doc (documentation sym 'variable)))))) |
599 |
nil "FOO27") |
nil "FOO27") |
600 |
|
|
601 |
|
(deftest documentation.symbol.variable.5 |
602 |
|
(loop for s in *cl-variable-symbols* |
603 |
|
for doc = (documentation s 'variable) |
604 |
|
unless (or (null doc) (stringp doc)) |
605 |
|
collect (list s doc)) |
606 |
|
nil) |
607 |
|
|
608 |
|
(deftest documentation.symbol.variable.6 |
609 |
|
(loop for s in *cl-constant-symbols* |
610 |
|
for doc = (documentation s 'variable) |
611 |
|
unless (or (null doc) (stringp doc)) |
612 |
|
collect (list s doc)) |
613 |
|
nil) |
614 |
|
|
615 |
;;; Defining new methods for DOCUMENTATION |
;;; Defining new methods for DOCUMENTATION |
616 |
|
|