Commit bd688405 authored by pfdietz's avatar pfdietz
Browse files

Another test case for macroexpansion in restart-case.

parent a04c5979
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment