Skip to content
Snippets Groups Projects
Commit 6121cc21 authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

restart-case: signal: add new test

This test is motivated by ECL's bug (recently fixed), where if signal
was toplevel under restart-case, condition wasn't initialized fast
enough.
parent 70a2a757
No related branches found
No related tags found
No related merge requests found
...@@ -308,3 +308,11 @@ ...@@ -308,3 +308,11 @@
(declare (special x)) (declare (special x))
y)))) y))))
:good) :good)
(deftest restart-case.37
(progn
(define-condition x () ((y :initarg :y)))
(handler-bind ((x (lambda (c) (slot-value c 'y))))
(restart-case
(signal 'x :y 1))))
nil)
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