diff options
| -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. |