/[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.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    

Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10

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