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