Parent Directory | Revision Log | 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) | ||
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |