From bd688405bdcae19062b8de07f08a6cc37ba29ecd Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Sun, 23 Mar 2003 13:33:33 +0000 Subject: [PATCH] Another test case for macroexpansion in restart-case. --- ansi-tests/restart-case.lsp | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) diff --git a/ansi-tests/restart-case.lsp b/ansi-tests/restart-case.lsp index b688357d..594363d6 100644 --- a/ansi-tests/restart-case.lsp +++ b/ansi-tests/restart-case.lsp @@ -249,3 +249,21 @@ (foo () 'good))))) good) +(deftest restart-case.31 + (macrolet ((%m2 (&rest args) (cons 'error args))) + (macrolet ((%m (&rest args &environment env) + (macroexpand (cons '%m2 args) env))) + (handler-bind + ((error #'(lambda (c2) (invoke-restart (find-restart 'foo c2))))) + (handler-bind + ((error #'(lambda (c) (declare (ignore c)) (error "Blah")))) + (restart-case + (restart-case + (%m "Boo!") + (foo () 'bad)) + (foo () 'good)))))) + good) + + + + -- GitLab