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