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

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

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

revision 1.54 by pfdietz, Sun Nov 16 14:38:24 2003 UTC revision 1.55 by pfdietz, Sun Nov 16 15:06:44 2003 UTC
# Line 2981  Line 2981 
2981         (declare (optimize (debug 1)))         (declare (optimize (debug 1)))
2982         (block b7         (block b7
2983           (flet ((%f3 (f3-1 f3-2 f3-3) 0))           (flet ((%f3 (f3-1 f3-2 f3-3) 0))
2984             (apply #'%f3 0 (catch 737 (return-from b7 (%f3 0 b c))) c nil)))))             (apply #'%f3 0 (catch 'foo (return-from b7 (%f3 0 b c))) c nil)))))
2985     0 6000 -9000000)     0 6000 -9000000)
2986    0)    0)
2987    
# Line 3061  Line 3061 
3061                      0))                      0))
3062           (apply #'%f13           (apply #'%f13
3063                  (%f13 b 0 0)                  (%f13 b 0 0)
3064                  (catch 729 0)                  (catch 'ct1 0)
3065                  (catch 'ct2 (throw 'ct2 c))                  (catch 'ct2 (throw 'ct2 c))
3066                  nil))))                  nil))))
3067     0 0 0)     0 0 0)

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

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