/[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.6 by pfdietz, Sat Nov 2 01:38:57 2002 UTC revision 1.7 by pfdietz, Fri Nov 15 12:34:41 2002 UTC
# Line 15  Line 15 
15    (functionp nil)    (functionp nil)
16    nil)    nil)
17    
18    ;;; In ANSI CL, symbols can no longer be functions
19  (deftest functionp.2  (deftest functionp.2
20    (functionp 'identity)    (functionp 'identity)
21    nil)    nil)
# Line 39  Line 40 
40    (functionp '(setf car))    (functionp '(setf car))
41    nil)    nil)
42    
43    ;;; In ANSI CL, lambda forms are no longer functions
44  (deftest functionp.6  (deftest functionp.6
45    (functionp '(lambda (x) x))    (functionp '(lambda (x) x))
46    nil)    nil)
# Line 59  Line 61 
61    (not (functionp (compile nil '(lambda (x) x))))    (not (functionp (compile nil '(lambda (x) x))))
62    nil)    nil)
63    
64    ;;; In ANSI CL, symbols and cons can no longer be functions
65  (deftest functionp.10  (deftest functionp.10
66    (loop for x in *universe*    (loop for x in *universe*
67          never          never
68          (and (or (numberp x) (characterp x) (symbolp x) (consp x)          (and (or (numberp x) (characterp x)
69                     (symbolp x) (consp x)
70                   (typep x 'array))                   (typep x 'array))
71               (functionp x)))               (functionp x)))
72    t)    t)

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