/[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.15 by pfdietz, Sat Jan 17 13:31:44 2004 UTC revision 1.16 by pfdietz, Sun Jun 26 14:52:06 2005 UTC
# Line 63  Line 63 
63    
64  ;;; In ANSI CL, symbols and cons can no longer be functions  ;;; In ANSI CL, symbols and cons can no longer be functions
65  (deftest functionp.10  (deftest functionp.10
66    (loop for x in *universe*    (check-predicate #'(lambda (x)
67          when (and (or (numberp x) (characterp x)                         (not (and (or (numberp x) (characterp x)
68                        (symbolp x) (consp x)                                       (symbolp x) (consp x)
69                        (typep x 'array))                                       (typep x 'array))
70                    (functionp x))                                   (functionp x)))))
         collect x)  
71    nil)    nil)
72    
73  (deftest functionp.11  (deftest functionp.11
# Line 79  Line 78 
78    (flet ((%f () nil)) (not-mv (functionp #'%f)))    (flet ((%f () nil)) (not-mv (functionp #'%f)))
79    nil)    nil)
80    
81    ;;; TODO: Add check-type-predicate test?
82    
83  (deftest functionp.order.1  (deftest functionp.order.1
84    (let ((i 0))    (let ((i 0))
85      (values      (values

Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16

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