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

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

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

revision 1.1 by pfdietz, Thu Sep 26 16:53:38 2002 UTC revision 1.2 by pfdietz, Wed Oct 23 03:10:23 2002 UTC
# Line 157  Line 157 
157    "1234")    "1234")
158    
159  (deftest map-into-error.1  (deftest map-into-error.1
160    (handler-case (map-into 'a #'(lambda () nil))    (classify-error (map-into 'a #'(lambda () nil)))
                 (type-error (c) 'type-error)  
                 (error (c) c))  
161    type-error)    type-error)
162    
163  (deftest map-into-error.2  (deftest map-into-error.2
164    (handler-case (map-into nil #'identity 'a)    (classify-error (map-into nil #'identity 'a))
                 (type-error (c) 'type-error)  
                 (error (c) c))  
165    type-error)    type-error)
166    
167  (deftest map-into-error.3  (deftest map-into-error.3
168    (handler-case (map-into (copy-seq '(a b c)) #'cons '(d e f) 100)    (classify-error (map-into (copy-seq '(a b c)) #'cons '(d e f) 100))
                 (type-error (c) 'type-error)  
                 (error (c) c))  
169    type-error)    type-error)
   
   
   
   
   

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

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