From 11522cc08df31d492c307ae207e7c9ee0f62d8c0 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Fri, 19 Jul 2013 01:40:46 +0200
Subject: MAYBE-CLOSES-OVER-P: Be tolerant towards errors raised by SB-WALKER.

---
 sb-eval2.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'sb-eval2.lisp')

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 06fbbcf..f2ff15b 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -77,7 +77,9 @@
   nil)
 
 (defun maybe-closes-over-p (context form vars)
-  (maybe-closes-over-p/env form vars (context->native-environment context)))
+  (handler-case
+      (maybe-closes-over-p/env form vars (context->native-environment context))
+    (serious-condition () t)))
 
 (defun maybe-closes-over-p/env (form vars env)
   ;; Use `(function ,name) for local functions.
-- 
cgit v1.2.3