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

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

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

revision 1.5 by pfdietz, Mon Jan 13 14:11:49 2003 UTC revision 1.6 by pfdietz, Tue Jan 14 14:01:21 2003 UTC
# Line 263  Line 263 
263         #'<))         #'<))
264    (1 2 3 4 5 6))    (1 2 3 4 5 6))
265    
266    (deftest nunion-32
267      (sort (nunion (list 7 9 1 5) (list 10 11 9 20 1 2) :bad t
268                   :allow-other-keys "yes")
269            #'<)
270      (1 2 5 7 9 10 11 20))
271    
272    (deftest nunion-33
273      (sort (nunion (list 7 9 1 5) (list 10 11 9 20 1 2)
274                   :allow-other-keys t :also-bad t)
275            #'<)
276      (1 2 5 7 9 10 11 20))
277    
278    (deftest nunion-34
279      (sort (nunion (list 1 2 3) (list 1 2 3)
280                   :allow-other-keys t :also-bad t
281                   :test #'(lambda (x y) (= x (+ y 100))))
282            #'<)
283      (1 1 2 2 3 3))
284    
285  (deftest nunion.error.1  (deftest nunion.error.1
286    (classify-error (nunion))    (classify-error (nunion))
287    program-error)    program-error)

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

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