0.9.5.58:

[sbcl.git] / src / code / target-error.lisp

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index 2406d7b..f7d43cb 100644 (file)
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -51,8 +51,9 @@
           (when (and (or (not condition)
                          (member restart associated)
                          (not (member restart other)))
-                     (funcall (restart-test-function restart)
-                              condition))
+                     (or (not condition)
+                         (funcall (restart-test-function restart)
+                                  condition)))
             (res restart))))
       (res))))