From 6121cc21900c766063fd3fff05bc6bbaa87ea17a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 1 Jun 2016 17:55:27 +0200
Subject: [PATCH] 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.
---
 conditions/restart-case.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/conditions/restart-case.lsp b/conditions/restart-case.lsp
index b11424b9..ff4f3c11 100644
--- a/conditions/restart-case.lsp
+++ b/conditions/restart-case.lsp
@@ -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)
-- 
GitLab