From f840c19090239d29287aa3e7d26f8b0c0938d458 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Sat, 11 Mar 2006 12:45:34 +0000
Subject: [PATCH] Omit warning when referring to constant symbols that have
 been defined outside the compiled file.

---
 src/cmp/cmpvar.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpvar.lsp b/src/cmp/cmpvar.lsp
index 8e5af0f7b..5857af04b 100644
--- a/src/cmp/cmpvar.lsp
+++ b/src/cmp/cmpvar.lsp
@@ -291,7 +291,7 @@
       (setf var (make-var :name name :kind kind :type type :loc (add-symbol name))))
     (push var *global-var-objects*)
     (when warn
-      (unless (or (sys:specialp name) (check-global name))
+      (unless (or (sys:specialp name) (constantp name) (check-global name))
 	(undefined-variable name)
 	(push var *undefined-vars*)))
     var))