Commit 6121cc21 authored by Daniel Kochmański's avatar Daniel Kochmański

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
parent 70a2a757
...@@ -308,3 +308,11 @@ ...@@ -308,3 +308,11 @@
(declare (special x)) (declare (special x))
y)))) y))))
:good) :good)
(deftest restart-case.37
(define-condition x () ((y :initarg :y)))
(handler-bind ((x (lambda (c) (slot-value c 'y))))
(signal 'x :y 1))))
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