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

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

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:50 2003 UTC revision 1.4 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 30  Line 30 
30    nil)    nil)
31    
32  (deftest notevery.6  (deftest notevery.6
33    (not (notevery #'= '(1 2 3 4 5) '(1 2 3 4 6)))    (not-mv (notevery #'= '(1 2 3 4 5) '(1 2 3 4 6)))
34    nil)    nil)
35    
36  (deftest notevery.7  (deftest notevery.7
# Line 56  Line 56 
56    nil)    nil)
57    
58  (deftest notevery.11  (deftest notevery.11
59    (not (notevery #'zerop #*0000010000))    (not-mv (notevery #'zerop #*0000010000))
60    nil)    nil)
61    
62  (deftest notevery.12  (deftest notevery.12
# Line 68  Line 68 
68    nil)    nil)
69    
70  (deftest notevery.14  (deftest notevery.14
71    (not (notevery #'(lambda (x) (eql x #\a)) "aaaaaabaaaa"))    (not-mv (notevery #'(lambda (x) (eql x #\a)) "aaaaaabaaaa"))
72    nil)    nil)
73    
74  (deftest notevery.15  (deftest notevery.15
75    (not (notevery 'null '(nil nil t nil)))    (not-mv (notevery 'null '(nil nil t nil)))
76    nil)    nil)
77    
78  (deftest notevery.16  (deftest notevery.16

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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