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

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

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

revision 1.11 by pfdietz, Mon Feb 17 04:22:03 2003 UTC revision 1.12 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 294  Line 294 
294    (classify-error (set-difference nil nil :bad t :allow-other-keys nil))    (classify-error (set-difference nil nil :bad t :allow-other-keys nil))
295    program-error)    program-error)
296    
297    (deftest set-difference.error.7
298      (classify-error (set-difference (list 1 2) (list 3 4) :test #'identity))
299      program-error)
300    
301    (deftest set-difference.error.8
302      (classify-error (set-difference (list 1 2) (list 3 4) :test-not #'identity))
303      program-error)
304    
305    (deftest set-difference.error.9
306      (classify-error (set-difference (list 1 2) (list 3 4) :key #'cons))
307      program-error)
308    
309    (deftest set-difference.error.10
310      (classify-error (set-difference (list 1 2) (list 3 4) :key #'car))
311      type-error)
312    
313    
314  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
315  ;;; nset-difference  ;;; nset-difference
316    
# Line 578  Line 595 
595  (deftest nset-difference.error.6  (deftest nset-difference.error.6
596    (classify-error (nset-difference nil nil :bad t :allow-other-keys nil))    (classify-error (nset-difference nil nil :bad t :allow-other-keys nil))
597    program-error)    program-error)
598    
599    (deftest nset-difference.error.7
600      (classify-error (nset-difference (list 1 2) (list 3 4) :test #'identity))
601      program-error)
602    
603    (deftest nset-difference.error.8
604      (classify-error (nset-difference (list 1 2) (list 3 4) :test-not #'identity))
605      program-error)
606    
607    (deftest nset-difference.error.9
608      (classify-error (nset-difference (list 1 2) (list 3 4) :key #'cons))
609      program-error)
610    
611    (deftest nset-difference.error.10
612      (classify-error (nset-difference (list 1 2) (list 3 4) :key #'car))
613      type-error)

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

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