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