From cf49eca29051897bbd9d798e5b2e5763850df0aa Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 9 Mar 2006 08:53:32 +0000
Subject: [PATCH] Implicitely declared constants as globals

---
 src/CHANGELOG          | 4 ++++
 src/lsp/evalmacros.lsp | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/src/CHANGELOG b/src/CHANGELOG
index aefb7998e..f57cac21a 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -112,6 +112,10 @@ ECL 0.9i
  - SLOT-{VALUE,BOUNDP,MAKUNBOUND}-USING-CLASS now are also specialized for
    standard-effective-slot-definition (Thanks to D. Corkill)
 
+ - Constants are now implicitely declared global in the file in which they are
+   defined, so that the compiler no longer issues warnings when they are
+   referenced.
+
 * Documentation:
 
  - The HTML manuals now use CSS for a more appealing look.
diff --git a/src/lsp/evalmacros.lsp b/src/lsp/evalmacros.lsp
index d5d0bea21..bd43e21f4 100644
--- a/src/lsp/evalmacros.lsp
+++ b/src/lsp/evalmacros.lsp
@@ -101,6 +101,8 @@ as a VARIABLE doc and can be retrieved by (documentation 'NAME 'variable)."
   `(PROGN (SYS:*MAKE-CONSTANT ',var ,form)
     ,@(si::expand-set-documentation var 'variable doc-string)
     #+PDE (SYS:RECORD-SOURCE-PATHNAME ',var 'defconstant)
+    (eval-when (:compile-toplevel)
+      (si::register-global ',var))
     ',var))
 
 ;;;