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