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

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

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

revision 1.3 by pfdietz, Mon Jan 13 14:11:51 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 some.6  (deftest some.6
33    (not (some #'/= '(1 2 3 4 5) '(1 2 3 4 6)))    (not-mv (some #'/= '(1 2 3 4 5) '(1 2 3 4 6)))
34    nil)    nil)
35    
36  (deftest some.7  (deftest some.7
# Line 55  Line 55 
55    nil)    nil)
56    
57  (deftest some.11  (deftest some.11
58    (not (some #'zerop #*1111111011111))    (not-mv (some #'zerop #*1111111011111))
59    nil)    nil)
60    
61  (deftest some.12  (deftest some.12
# Line 67  Line 67 
67    nil)    nil)
68    
69  (deftest some.14  (deftest some.14
70    (not (some #'(lambda (x) (not (eql x #\a))) "aaaaaabaaaa"))    (not-mv (some #'(lambda (x) (not (eql x #\a))) "aaaaaabaaaa"))
71    nil)    nil)
72    
73  (deftest some.15  (deftest some.15
# Line 75  Line 75 
75    nil)    nil)
76    
77  (deftest some.16  (deftest some.16
78    (not (some 'null '(1 2 3 nil 5)))    (not-mv (some 'null '(1 2 3 nil 5)))
79    nil)    nil)
80    
81    

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