From 53e19181691afa415f420da6c852abecf2df1e4e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr.(none)>
Date: Sun, 12 Oct 2008 22:12:57 +0200
Subject: [PATCH] We have to use ECL_SETQ to assign values to bound special
 variables.

---
 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 10ccd3790..661edd8cd 100644
--- a/src/cmp/cmpvar.lsp
+++ b/src/cmp/cmpvar.lsp
@@ -241,7 +241,7 @@
       ((SPECIAL GLOBAL)
        (if (safe-compile)
 	   (wt-nl "cl_set(" var-loc ",")
-	   (wt-nl "ECL_SET(" var-loc ","))
+	   (wt-nl "ECL_SETQ(cl_env_copy," var-loc ","))
        (wt-coerce-loc (var-rep-type var) loc)
        (wt ");"))
       (t