X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fdynbind.c;h=d9774d620925077cc4d924dcb866244c6447a3aa;hb=40588bcc85ce25d24d59becf96576cc7c89a3c95;hp=da2218961a05b98e0482bded1288f69372ec6f5d;hpb=939275c1bc2f18ef93cd1dd4ab35a18f6008cfd9;p=sbcl.git

diff --git a/src/runtime/dynbind.c b/src/runtime/dynbind.c
index da22189..d9774d6 100644
--- a/src/runtime/dynbind.c
+++ b/src/runtime/dynbind.c
@@ -33,7 +33,6 @@
 
 void bind_variable(lispobj symbol, lispobj value, void *th)
 {
-    lispobj old_tl_value;
     struct binding *binding;
     struct thread *thread=(struct thread *)th;
     binding = GetBSP();
@@ -59,10 +58,9 @@ void bind_variable(lispobj symbol, lispobj value, void *th)
         }
     }
 #endif
-    old_tl_value=SymbolTlValue(symbol,thread);
-    binding->value = old_tl_value;
+    binding->value = SymbolTlValue(symbol, thread);
     binding->symbol = symbol;
-    SetTlSymbolValue(symbol, value,thread);
+    SetTlSymbolValue(symbol, value, thread);
 }
 
 void