From 8406e1e4fc1eb88f7ef8412cce1542235207cb6f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= Date: Sun, 29 May 2016 14:17:37 +0200 Subject: [PATCH] signal: fix the problem with restart-case and signal Fixes #247. --- src/clos/conditions.lsp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index d8ccf1a66..7139cc8b2 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -180,7 +180,9 @@ (name (first expression2))) (case name (SIGNAL - (setq condition-form (second expression2))) + (setq condition-form `(coerce-to-condition ,(second expression2) + (list ,@ (cddr expression2)) + 'simple-condition 'signal))) (ERROR (setq condition-form `(coerce-to-condition ,(second expression2) (list ,@(cddr expression2))