Parent Directory | Revision Log | Patch
revision 1.6 by pfdietz, Mon Mar 24 03:13:52 2003 UTC | revision 1.7 by pfdietz, Sat Jan 8 15:50:32 2005 UTC | |
---|---|---|
# | Line 298 | Line 298 |
298 | (nil () :report (lambda (s) (format s "Anonymous restart")) 10)) | (nil () :report (lambda (s) (format s "Anonymous restart")) 10)) |
299 | (foo bar foo nil)) | (foo bar foo nil)) |
300 | ||
301 | (deftest restart-case.36 | |
302 | (let ((x :bad)) | |
303 | (declare (special x)) | |
304 | (let ((x :good)) | |
305 | (restart-case | |
306 | (invoke-restart 'foo) | |
307 | (foo (&aux (y x)) | |
308 | (declare (special x)) | |
309 | y)))) | |
310 | :good) |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |