X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=8bb36fbdff884b96141771fe82514c39fc6a947f;hb=bcd323c39d6f5f80020ba4a5d9eb8d348c6cc499;hp=5a448fd9f00e76a41a066c38bffdd2806ad69cf2;hpb=333049ee307ddeb69d4b7eee3c2a381da494da31;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index 5a448fd..8bb36fb 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -682,6 +682,8 @@
                ;; processing our own code, though.
                #+sb-xc-host
                (warn "reading an ignored variable: ~S" name)))
+           (when (global-var-p var)
+             (check-deprecated-variable name))
            (reference-leaf start next result var name))
           (cons
            (aver (eq (car var) 'macro))