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
enough.
parent 70a2a757
......@@ -308,3 +308,11 @@
(declare (special x))
y))))
: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)
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