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

signal: fix the problem with restart-case and signal

Browse source 
Fixes #247.
This commit is contained in:
Daniel Kochmański 2016-05-29 14:17:37 +02:00
parent e8234eca4f
commit 8406e1e4fc
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/clos/conditions.lsp
View file

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