From 7c2f344105e0b52e4bbf5432d16a8f1f22f0ebb2 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 21 Jul 2013 12:14:32 +0200
Subject: When warning about undefined variables, take global specialness into
 account.

---
 sb-eval2.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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))))
-- 
cgit v1.2.3