/[gcl]/gcl/ansi-tests/restart-case.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/restart-case.lsp

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

revision 1.4 by pfdietz, Sun Mar 23 13:33:33 2003 UTC revision 1.5 by pfdietz, Sun Mar 23 17:29:50 2003 UTC
# Line 264  Line 264 
264           (foo () 'good))))))           (foo () 'good))))))
265    good)    good)
266    
267    (deftest restart-case.32
268      (restart-case
269       (invoke-restart-interactively 'foo)
270       (foo () 'good))
271      good)
272    
273    (deftest restart-case.33
274      (restart-case
275       (invoke-restart-interactively 'foo)
276       (foo (w x y z)
277            :interactive (lambda () (list 'a 'b 'c 'd))
278            (list x w z y)))
279      (b a d c))
280    
281    (deftest restart-case.34
282      (flet ((%f () (list 'a 'b 'c 'd)))
283        (restart-case
284         (invoke-restart-interactively 'foo)
285         (foo (w x y z)
286              :interactive %f
287              (list x w z y))))
288      (b a d c))
289    
290    
291    
292    
293    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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