diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-21 12:14:32 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-21 12:14:32 +0200 |
| commit | 7c2f344105e0b52e4bbf5432d16a8f1f22f0ebb2 (patch) | |
| tree | 679c82af881b049856a44c9ca939c767c314544d | |
| parent | be740b5618753fff918f75df293081a7560891fd (diff) | |
When warning about undefined variables, take global specialness into account.
| -rw-r--r-- | sb-eval2.lisp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/sb-eval2.lisp b/sb-eval2.lisp index 7770222..ed20b7a 100644 --- a/sb-eval2.lisp +++ b/sb-eval2.lisp @@ -725,7 +725,8 @@ (eq :special (sb-int:info :variable :kind var))) (defun assume-special (context var) - (unless (context-var-special-p context var) + (unless (or (globally-special-p var) + (context-var-special-p context var)) (warn 'simple-warning :format-control "Undefined variable: ~S" :format-arguments (list var)))) |