diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 01:40:46 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-19 01:40:46 +0200 |
| commit | 11522cc08df31d492c307ae207e7c9ee0f62d8c0 (patch) | |
| tree | 991ca40e99a6a7c9ea811c3f2dc7048f6ea590a6 | |
| parent | 9555b086f94fb9c7ef53bdb8f386c9ac54c092d9 (diff) | |
MAYBE-CLOSES-OVER-P: Be tolerant towards errors raised by SB-WALKER.
| -rw-r--r-- | sb-eval2.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
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. |