25 |
(deftest function.4 |
(deftest function.4 |
26 |
(loop for x in *cl-symbol-names* |
(loop for x in *cl-symbol-names* |
27 |
for s = (find-symbol x "CL") |
for s = (find-symbol x "CL") |
28 |
for f = (and (fboundp s) (symbol-function s) |
for f = (and (fboundp s) |
29 |
|
(symbol-function s) |
30 |
(not (special-operator-p s)) |
(not (special-operator-p s)) |
31 |
(not (macro-function s))) |
(not (macro-function s)) |
32 |
|
(symbol-function s)) |
33 |
always (or (null f) |
always (or (null f) |
34 |
(typep f 'function) |
(typep f 'function) |
35 |
)) |
)) |