/[gcl]/gcl/ansi-tests/cons-test-23.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/cons-test-23.lsp

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

revision 1.7 by pfdietz, Sat Jan 18 12:49:35 2003 UTC revision 1.8 by pfdietz, Fri Jan 24 04:22:54 2003 UTC
# Line 114  Line 114 
114  ;; the order of the arguments to the test function  ;; the order of the arguments to the test function
115  ;;  ;;
116  (deftest set-exclusive-or-17  (deftest set-exclusive-or-17
117      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
118            (list2 '(e f g h)))          (list2 '(e f g h)))
119        (block fail      (block fail
120          (not (not        (notnot-mv
121                (set-exclusive-or-with-check         (set-exclusive-or-with-check
122                 list1 list2          list1 list2
123                 :test #'(lambda (s1 s2)          :test #'(lambda (s1 s2)
124                           (when (or (member s1 list2)                    (when (or (member s1 list2)
125                                     (member s2 list1))                              (member s2 list1))
126                             (return-from fail 'failed))))))))                      (return-from fail 'failed)))))))
127    t)    t)
128    
129  (deftest set-exclusive-or-17-a  (deftest set-exclusive-or-17-a
130      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
131            (list2 '(e f g h)))          (list2 '(e f g h)))
132        (block fail      (block fail
133          (not (not        (notnot-mv
134                (set-exclusive-or-with-check         (set-exclusive-or-with-check
135                 list1 list2          list1 list2
136                 :key #'identity          :key #'identity
137                 :test #'(lambda (s1 s2)          :test #'(lambda (s1 s2)
138                           (when (or (member s1 list2)                    (when (or (member s1 list2)
139                                     (member s2 list1))                              (member s2 list1))
140                             (return-from fail 'failed))))))))                      (return-from fail 'failed)))))))
141    t)    t)
142    
143  (deftest set-exclusive-or-18  (deftest set-exclusive-or-18
144      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
145            (list2 '(e f g h)))          (list2 '(e f g h)))
146        (block fail      (block fail
147          (not (not        (notnot-mv
148                (set-exclusive-or-with-check         (set-exclusive-or-with-check
149                 list1 list2          list1 list2
150                 :test-not          :test-not
151                 #'(lambda (s1 s2)          #'(lambda (s1 s2)
152                           (when (or (member s1 list2)              (when (or (member s1 list2)
153                                     (member s2 list1))                        (member s2 list1))
154                             (return-from fail 'failed))                (return-from fail 'failed))
155                           t))))))              t)))))
156    t)    t)
157    
158  (deftest set-exclusive-or-18-a  (deftest set-exclusive-or-18-a
159      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
160            (list2 '(e f g h)))          (list2 '(e f g h)))
161        (block fail      (block fail
162          (not (not        (notnot-mv
163                (set-exclusive-or-with-check         (set-exclusive-or-with-check
164                 list1 list2          list1 list2
165                 :key #'identity          :key #'identity
166                 :test-not          :test-not
167                 #'(lambda (s1 s2)          #'(lambda (s1 s2)
168                           (when (or (member s1 list2)              (when (or (member s1 list2)
169                                     (member s2 list1))                        (member s2 list1))
170                             (return-from fail 'failed))                (return-from fail 'failed))
171                           t))))))              t)))))
172    t)    t)
173    
174  ;;; Keyword tests  ;;; Keyword tests
# Line 365  Line 365 
365  ;; the order of the arguments to the test function  ;; the order of the arguments to the test function
366  ;;  ;;
367  (deftest nset-exclusive-or-17  (deftest nset-exclusive-or-17
368      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
369            (list2 '(e f g h)))          (list2 '(e f g h)))
370        (block fail      (block fail
371          (not (not        (notnot-mv
372                (nset-exclusive-or-with-check         (nset-exclusive-or-with-check
373                 list1 list2          list1 list2
374                 :test #'(lambda (s1 s2)          :test #'(lambda (s1 s2)
375                           (when (or (member s1 list2)                    (when (or (member s1 list2)
376                                     (member s2 list1))                              (member s2 list1))
377                             (return-from fail 'failed))))))))                      (return-from fail 'failed)))))))
378    t)    t)
379    
380  (deftest nset-exclusive-or-17-a  (deftest nset-exclusive-or-17-a
381      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
382            (list2 '(e f g h)))          (list2 '(e f g h)))
383        (block fail      (block fail
384          (not (not        (notnot-mv
385                (nset-exclusive-or-with-check         (nset-exclusive-or-with-check
386                 list1 list2          list1 list2
387                 :key #'identity          :key #'identity
388                 :test #'(lambda (s1 s2)          :test #'(lambda (s1 s2)
389                           (when (or (member s1 list2)                    (when (or (member s1 list2)
390                                     (member s2 list1))                              (member s2 list1))
391                             (return-from fail 'failed))))))))                      (return-from fail 'failed)))))))
392    t)    t)
393    
394  (deftest nset-exclusive-or-18  (deftest nset-exclusive-or-18
395      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
396            (list2 '(e f g h)))          (list2 '(e f g h)))
397        (block fail      (block fail
398          (not (not        (notnot-mv
399                (nset-exclusive-or-with-check         (nset-exclusive-or-with-check
400                 list1 list2          list1 list2
401                 :test-not          :test-not
402                 #'(lambda (s1 s2)          #'(lambda (s1 s2)
403                           (when (or (member s1 list2)              (when (or (member s1 list2)
404                                     (member s2 list1))                        (member s2 list1))
405                             (return-from fail 'failed))                (return-from fail 'failed))
406                           t))))))              t)))))
407    t)    t)
408    
409  (deftest nset-exclusive-or-18-a  (deftest nset-exclusive-or-18-a
410      (let ((list1 '(a b c d))    (let ((list1 '(a b c d))
411            (list2 '(e f g h)))          (list2 '(e f g h)))
412        (block fail      (block fail
413          (not (not        (notnot-mv
414                (nset-exclusive-or-with-check         (nset-exclusive-or-with-check
415                 list1 list2          list1 list2
416                 :key #'identity          :key #'identity
417                 :test-not          :test-not
418                 #'(lambda (s1 s2)          #'(lambda (s1 s2)
419                           (when (or (member s1 list2)              (when (or (member s1 list2)
420                                     (member s2 list1))                        (member s2 list1))
421                             (return-from fail 'failed))                (return-from fail 'failed))
422                           t))))))              t)))))
423    t)    t)
424    
425  ;;; Keyword tests  ;;; Keyword tests

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