Skip to content
Snippets Groups Projects
Commit bd688405 authored by pfdietz's avatar pfdietz
Browse files

Another test case for macroexpansion in restart-case.

parent a04c5979
No related branches found
No related tags found
No related merge requests found
...@@ -249,3 +249,21 @@ ...@@ -249,3 +249,21 @@
(foo () 'good))))) (foo () 'good)))))
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)
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment