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

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

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

revision 1.11 by pfdietz, Sat Mar 1 03:35:48 2003 UTC revision 1.12 by pfdietz, Fri Mar 7 05:16:40 2003 UTC
# Line 310  Line 310 
310    (classify-error (assoc 'a '((a . b)) :key #'cons))    (classify-error (assoc 'a '((a . b)) :key #'cons))
311    program-error)    program-error)
312    
313    (deftest assoc.error.10
314      (classify-error (assoc 'z '((a . b) . c)))
315      type-error)
316    
317  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
318  ;;; assoc-if  ;;; assoc-if
319    
# Line 442  Line 446 
446    (classify-error (assoc-if #'identity '((a b)(c d)) :key #'car))    (classify-error (assoc-if #'identity '((a b)(c d)) :key #'car))
447    type-error)    type-error)
448    
449    (deftest assoc-if.error.11
450      (classify-error (assoc-if #'null '((a . b) . c)))
451      type-error)
452    
453  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
454  ;;; assoc-if-not  ;;; assoc-if-not
# Line 577  Line 584 
584    (classify-error (assoc-if-not #'identity '((a b)(c d)) :key #'car))    (classify-error (assoc-if-not #'identity '((a b)(c d)) :key #'car))
585    type-error)    type-error)
586    
587    (deftest assoc-if-not.error.11
588      (classify-error (assoc-if-not #'identity '((a . b) . c)))
589      type-error)
590    
591  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
592  ;;; copy-alist  ;;; copy-alist
593    
# Line 606  Line 617 
617    (classify-error (copy-alist nil nil))    (classify-error (copy-alist nil nil))
618    program-error)    program-error)
619    
620    (deftest copy-alist.error.3
621      (classify-error (copy-alist '((a . b) . c)))
622      type-error)
623    
624  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
625  ;;; pairlis  ;;; pairlis
626    
# Line 676  Line 691 
691  (deftest pairlis.error.3  (deftest pairlis.error.3
692    (classify-error (pairlis nil nil nil nil))    (classify-error (pairlis nil nil nil nil))
693    program-error)    program-error)
694    
695    (deftest pairlist.error.4
696      (classify-error (pairlis 'a '(1) '(a b c)))
697      type-error)
698    
699    (deftest pairlist.error.5
700      (classify-error (pairlis '(a) 'b '(a b c)))
701      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