From cf2fe46ddf9ab4f2935daeeae9ff809c34bcae83 Mon Sep 17 00:00:00 2001 From: Marius Gerbershagen Date: Sat, 19 Jan 2019 21:18:59 +0100 Subject: [PATCH] fix with-restart-case for restarts with both :test and :interactive Issue reported and fix provided by gitlab user Bicyclidine. Closes #450. --- src/clos/conditions.lsp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp index 7139cc8b2..254d585ae 100644 --- a/src/clos/conditions.lsp +++ b/src/clos/conditions.lsp @@ -142,10 +142,11 @@ (flet ((transform-keywords (&key report interactive test) (let ((keywords '())) (when test - (setq keywords (list :TEST-FUNCTION `#',test))) + (setq keywords (list :TEST-FUNCTION `#',test))) (when interactive - (setq keywords (list :INTERACTIVE-FUNCTION - `#',interactive))) + (setq keywords (list* :INTERACTIVE-FUNCTION + `#',interactive + keywords))) (when report (setq keywords (list* :REPORT-FUNCTION (if (stringp report)