diff options
author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-21 12:04:26 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-21 12:04:26 +0200 |
commit | 5057e340c9d3a947b11895f692f61d7f1b614cf6 (patch) | |
tree | c662e034e1e7e6f676e322c0c916334195bbbd9a /sb-eval2.lisp | |
parent | ae8e60d3c54eed0d8e612c8b8471066856b3787b (diff) |
PREPARE-REF: Check BOUNDPness of variables prior to access.
Diffstat (limited to 'sb-eval2.lisp')
-rw-r--r-- | sb-eval2.lisp | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index aa9735e..b6aa7a9 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -282,6 +282,8 @@ (assume-special context var) (lambda (env) (declare (ignore env)) + (unless (boundp var) + (error 'unbound-variable :name var)) (symbol-value var))))) |