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

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

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

revision 1.12 by pfdietz, Sat Mar 1 03:35:48 2003 UTC revision 1.13 by pfdietz, Fri Mar 7 05:16:40 2003 UTC
# Line 295  Line 295 
295    (classify-error (rassoc 'a '((b . a)(c . d)) :key #'cons))    (classify-error (rassoc 'a '((b . a)(c . d)) :key #'cons))
296    program-error)    program-error)
297    
298    (deftest rassoc.error.10
299      (classify-error (rassoc 'z '((a . b) . c)))
300      type-error)
301    
302    
303  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
304  ;;; rassoc-if  ;;; rassoc-if
# Line 425  Line 429 
429    (classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'car))    (classify-error (rassoc-if #'identity '((a . b)(c . d)) :key #'car))
430    type-error)    type-error)
431    
432    (deftest rassoc-if.error.11
433      (classify-error (rassoc-if #'not '((a . b) . c)))
434      type-error)
435    
436  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
437  ;;; rassoc-if-not  ;;; rassoc-if-not
438    
# Line 557  Line 565 
565  (deftest rassoc-if-not.error.10  (deftest rassoc-if-not.error.10
566    (classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'car))    (classify-error (rassoc-if-not #'identity '((a . b)(c . d)) :key #'car))
567    type-error)    type-error)
568    
569    (deftest rassoc-if-not.error.11
570      (classify-error (rassoc-if-not #'identity '((a . b) . c)))
571      type-error)

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

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