/[gcl]/gcl/ansi-tests/map.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/map.lsp

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

revision 1.5 by pfdietz, Tue Oct 15 11:38:44 2002 UTC revision 1.6 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 169  Line 169 
169    :caught)    :caught)
170    
171  (deftest map-error.2  (deftest map-error.2
172    (handler-case (map '(vector * 8) #'identity '(a b c))    (classify-error (map '(vector * 8) #'identity '(a b c)))
173                  (type-error () :caught))    type-error)
   :caught)  
174    
175  (deftest map-error.3  (deftest map-error.3
176    (handler-case (map 'list #'identity '(a b . c))    (classify-error (map 'list #'identity '(a b . c)))
177                  (type-error () :caught))    type-error)
   :caught)  
   
   
   
   
   
   

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

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