/[gcl]/gcl/ansi-tests/count-if-not.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/count-if-not.lsp

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

revision 1.10 by pfdietz, Mon Feb 17 04:22:04 2003 UTC revision 1.11 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 522  Line 522 
522  (deftest count-if-not.error.11  (deftest count-if-not.error.11
523    (classify-error (locally (count-if-not #'identity 1) t))    (classify-error (locally (count-if-not #'identity 1) t))
524    type-error)    type-error)
525    
526    (deftest count-if-not.error.12
527      (classify-error (count-if-not #'cons '(a b c)))
528      program-error)
529    
530    (deftest count-if-not.error.13
531      (classify-error (count-if-not #'car '(a b c)))
532      type-error)
533    
534    (deftest count-if-not.error.14
535      (classify-error (count-if-not #'identity '(a b c) :key #'cdr))
536      type-error)
537    
538    (deftest count-if-not.error.15
539      (classify-error (count-if-not #'identity '(a b c) :key #'cons))
540      program-error)

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

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