From 2bbd1cf646f28d94e506efeec967a34f2b8e97dc Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 19 Aug 2008 10:26:43 +0000
Subject: [PATCH] DEFCONSTANT cannot have implicit compile-time side effects
 because it breaks our constants that use FFI

---
 src/lsp/evalmacros.lsp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/lsp/evalmacros.lsp b/src/lsp/evalmacros.lsp
index 9c8096179..6006cb2ef 100644
--- a/src/lsp/evalmacros.lsp
+++ b/src/lsp/evalmacros.lsp
@@ -101,8 +101,7 @@ as a VARIABLE doc and can be retrieved by (documentation 'NAME 'variable)."
 
 (defmacro defconstant (&whole whole var form &optional doc-string)
   `(PROGN
-    (eval-when (:compile-toplevel :load-toplevel :execute)
-      (SYS:*MAKE-CONSTANT ',var ,form))
+     (SYS:*MAKE-CONSTANT ',var ,form)
     ,@(si::expand-set-documentation var 'variable doc-string)
     ,(ext:register-with-pde whole)
     (eval-when (:compile-toplevel)