Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 96c8e09)
Added an ignorable dclaration to the expansion of HANDLER-CASE.
authorJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 11:04:38 +0000 (12:04 +0100)
committerJuan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Sun, 7 Feb 2010 11:04:38 +0000 (12:04 +0100)
src/clos/conditions.lsp patch | blob | blame | history

diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 9874ad0..8c4d337 100644 (file)
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -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)))))
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)