mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-21 20:12:51 -08:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
Issue reported and fix provided by gitlab user Bicyclidine. Closes
    #450.
This commit is contained in:
Marius Gerbershagen 2019-01-19 21:18:59 +01:00
parent 0b6311b399
commit cf2fe46ddf
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/clos/conditions.lsp
View file

@ -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)