/[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.13 by pfdietz, Fri Mar 7 01:56:08 2003 UTC revision 1.14 by pfdietz, Fri Mar 7 13:30:54 2003 UTC
# Line 347  Line 347 
347    (classify-error (set-exclusive-or (list 1 2) (list 3 4) :key #'car))    (classify-error (set-exclusive-or (list 1 2) (list 3 4) :key #'car))
348    type-error)    type-error)
349    
350    (deftest set-exclusive-or.error.11
351      (classify-error (set-exclusive-or (list 1 2 3) (list* 4 5 6)))
352      type-error)
353    
354    (deftest set-exclusive-or.error.12
355      (classify-error (set-exclusive-or (list* 1 2 3) (list 4 5 6)))
356      type-error)
357    
358    
359  ;;; Randomized test  ;;; Randomized test
360    
# Line 702  Line 710 
710    (classify-error (nset-exclusive-or (list 1 2) (list 3 4) :key #'car))    (classify-error (nset-exclusive-or (list 1 2) (list 3 4) :key #'car))
711    type-error)    type-error)
712    
713    (deftest nset-exclusive-or.error.11
714      (classify-error (nset-exclusive-or (list 1 2 3) (list* 4 5 6)))
715      type-error)
716    
717    (deftest nset-exclusive-or.error.12
718      (classify-error (nset-exclusive-or (list* 1 2 3) (list 4 5 6)))
719      type-error)

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

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