From 2668b414cb6c07ecbb0681917f30cdec8b944c4f Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sun, 23 Jan 2011 21:43:37 +0100
Subject: [PATCH] Do not use static constants when compiling Lisp code other
 than ECL's core

---
 src/cmp/cmpwt.lsp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/cmp/cmpwt.lsp b/src/cmp/cmpwt.lsp
index 24eab26a2..e316dbdd4 100644
--- a/src/cmp/cmpwt.lsp
+++ b/src/cmp/cmpwt.lsp
@@ -280,7 +280,9 @@
   nil
   #-:msvc
   ;; FIXME! The Microsoft compiler does not allow static initialization of bit fields.
-  (unless (or *compiler-constants* (not (listp *static-constants*)))
+  (unless (or *compiler-constants*
+              (not *use-static-constants-p*)
+              (not (listp *static-constants*)))
     (let ((record (find object *static-constants* :key #'first :test #'equal)))
       (if record
           (second record)