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

Diff of /gcl/ansi-tests/substitute-if.lsp

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

revision 1.6 by pfdietz, Sat Feb 15 05:11:12 2003 UTC revision 1.7 by pfdietz, Sat Feb 22 01:15:59 2003 UTC
# Line 836  Line 836 
836  (deftest substitute-if.error.7  (deftest substitute-if.error.7
837    (classify-error (substitute-if 'a #'null nil 1 2))    (classify-error (substitute-if 'a #'null nil 1 2))
838    program-error)    program-error)
839    
840    (deftest substitute-if.error.8
841      (classify-error (substitute-if 'a #'cons (list 'a 'b 'c)))
842      program-error)
843    
844    (deftest substitute-if.error.9
845      (classify-error (substitute-if 'a #'car (list 'a 'b 'c)))
846      type-error)
847    
848    (deftest substitute-if.error.10
849      (classify-error (substitute-if 'a #'identity (list 'a 'b 'c)
850                                      :key #'car))
851      type-error)
852    
853    (deftest substitute-if.error.11
854      (classify-error (substitute-if 'a #'identity (list 'a 'b 'c)
855                                      :key #'cons))
856      program-error)

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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