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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by pfdietz, Sun Oct 13 16:46:04 2002 UTC revision 1.7 by pfdietz, Sat Nov 2 01:38:57 2002 UTC
# Line 25  Line 25 
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                     ))                     ))

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

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