Parent Directory | Revision Log | Patch
revision 1.4 by pfdietz, Tue Oct 8 04:55:07 2002 UTC | revision 1.5 by pfdietz, Sun Oct 13 16:44:49 2002 UTC | |
---|---|---|
# | Line 26 | Line 26 |
26 | (deftest functionp.4 | (deftest functionp.4 |
27 | (loop for x in *cl-symbol-names* | (loop for x in *cl-symbol-names* |
28 | for s = (find-symbol x "CL") | for s = (find-symbol x "CL") |
29 | for f = (and (fboundp s) (symbol-function s)) | for f = (and (fboundp s) (symbol-function s) |
30 | (not (special-operator-p s)) | |
31 | (not (macro-function s))) | |
32 | always (or (null f) | always (or (null f) |
33 | (functionp f))) | (functionp f))) |
34 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |