Parent Directory | Revision Log | Patch
revision 1.5 by pfdietz, Sun Oct 13 16:44:49 2002 UTC | revision 1.6 by pfdietz, Sat Nov 2 01:38:57 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) |
30 | (symbol-function s) | |
31 | (not (special-operator-p s)) | (not (special-operator-p s)) |
32 | (not (macro-function s))) | (not (macro-function s)) |
33 | (symbol-function s)) | |
34 | always (or (null f) | always (or (null f) |
35 | (functionp f))) | (functionp f))) |
36 | t) | t) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |