249 |
(foo () 'good))))) |
(foo () 'good))))) |
250 |
good) |
good) |
251 |
|
|
252 |
|
(deftest restart-case.31 |
253 |
|
(macrolet ((%m2 (&rest args) (cons 'error args))) |
254 |
|
(macrolet ((%m (&rest args &environment env) |
255 |
|
(macroexpand (cons '%m2 args) env))) |
256 |
|
(handler-bind |
257 |
|
((error #'(lambda (c2) (invoke-restart (find-restart 'foo c2))))) |
258 |
|
(handler-bind |
259 |
|
((error #'(lambda (c) (declare (ignore c)) (error "Blah")))) |
260 |
|
(restart-case |
261 |
|
(restart-case |
262 |
|
(%m "Boo!") |
263 |
|
(foo () 'bad)) |
264 |
|
(foo () 'good)))))) |
265 |
|
good) |
266 |
|
|
267 |
|
|
268 |
|
|
269 |
|
|