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