Repositories / ecl.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: f67bbd4)
Fix si:bind-simple-handlers.
authorMatthew Stickney <mstickney@compassmax.com>
Tue, 19 Aug 2014 21:00:17 +0000 (17:00 -0400)
committerStas Boukarev <stassats@gmail.com>
Wed, 20 Aug 2014 14:11:28 +0000 (18:11 +0400)
Call the right local function, SIMPLE-RESTART-FUNCTION not
SIMPLE-HANDLER-FUNCTION.

src/clos/conditions.lsp patch | blob | blame | history

diff --git a/src/clos/conditions.lsp b/src/clos/conditions.lsp
index 475f999..5bbbae5 100644 (file)
--- a/src/clos/conditions.lsp
+++ b/src/clos/conditions.lsp
@@ -95,7 +95,7 @@
           #'(lambda (c) (throw tag (values code c)))))
     (cons (loop for i from 1
             for n in (if (atom names) (list names) names)
-            for f = (simple-restart-function tag i)
+            for f = (simple-handler-function tag i)
             collect (cons n f))
          *handler-clusters*)))
 
Embeddable Common Lisp (Official: https://gitlab.com/embeddable-common-lisp/ecl)