/[gcl]/gcl/ansi-tests/functionp.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/functionp.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26