/[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.7 by pfdietz, Fri Nov 15 12:34:41 2002 UTC revision 1.8 by pfdietz, Fri Dec 20 04:04:58 2002 UTC
# Line 32  Line 32 
32                       (not (special-operator-p s))                       (not (special-operator-p s))
33                       (not (macro-function s))                       (not (macro-function s))
34                       (symbol-function s))                       (symbol-function s))
35          always (or (null f)          unless (or (null f)
36                     (functionp f)))                     (functionp f))
37    t)          collect x)
38      nil)
39    
40  (deftest functionp.5  (deftest functionp.5
41    (functionp '(setf car))    (functionp '(setf car))
# Line 64  Line 65 
65  ;;; In ANSI CL, symbols and cons can no longer be functions  ;;; In ANSI CL, symbols and cons can no longer be functions
66  (deftest functionp.10  (deftest functionp.10
67    (loop for x in *universe*    (loop for x in *universe*
68          never          when (and (or (numberp x) (characterp x)
69          (and (or (numberp x) (characterp x)                        (symbolp x) (consp x)
70                   (symbolp x) (consp x)                        (typep x 'array))
71                   (typep x 'array))                    (functionp x))
72               (functionp x)))          collect x)
73    t)    nil)
74    
75  (deftest functionp.11  (deftest functionp.11
76    (flet ((%f () nil)) (functionp '%f))    (flet ((%f () nil)) (functionp '%f))

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

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