Parent Directory | Revision Log | Patch
revision 1.9 by pfdietz, Mon Jan 13 14:11:50 2003 UTC | revision 1.10 by pfdietz, Wed Jan 29 02:11:55 2003 UTC | |
---|---|---|
# | Line 164 | Line 164 |
164 | (a b c)) | (a b c)) |
165 | ||
166 | (deftest map.error.1 | (deftest map.error.1 |
167 | (handler-case (map 'symbol #'identity '(a b c)) | (handler-case (progn (proclaim '(optimize (safety 3))) |
168 | (eval '(map 'symbol #'identity '(a b c)))) | |
169 | (error () :caught)) | (error () :caught)) |
170 | :caught) | :caught) |
171 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |