Commit cf2fe46d authored by Marius Gerbershagen's avatar Marius Gerbershagen

fix with-restart-case for restarts with both :test and :interactive

    Issue reported and fix provided by gitlab user Bicyclidine. Closes
    #450.
parent 0b6311b3
Pipeline #44006325 (#201) passed with stage
......@@ -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)
......
Markdown is supported
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