/[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.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)

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

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