mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-04-22 17:50:39 -07:00
Code Issues Projects Releases Packages Wiki Activity

Added an ignorable dclaration to the expansion of HANDLER-CASE.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-02-07 12:04:38 +01:00
parent 96c8e09112
commit 01cbe7568f
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/clos/conditions.lsp
View file

@ -683,6 +683,7 @@ memory limits before executing the program again."))))
(handler-bind ,(mapcar #'(lambda (annotated-case)
(list (cadr annotated-case)
`#'(lambda (temp)
(declare (ignorable temp))
,@(if (caddr annotated-case)
`((setq ,var temp)))
(go ,(car annotated-case)))))