projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.9.6.1:
[sbcl.git]
/
src
/
runtime
/
dynbind.c
diff --git
a/src/runtime/dynbind.c
b/src/runtime/dynbind.c
index
da22189
..
d9774d6
100644
(file)
--- a/
src/runtime/dynbind.c
+++ b/
src/runtime/dynbind.c
@@
-33,7
+33,6
@@
void bind_variable(lispobj symbol, lispobj value, void *th)
{
void bind_variable(lispobj symbol, lispobj value, void *th)
{
- lispobj old_tl_value;
struct binding *binding;
struct thread *thread=(struct thread *)th;
binding = GetBSP();
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
}
}
#endif
- old_tl_value=SymbolTlValue(symbol,thread);
- binding->value = old_tl_value;
+ binding->value = SymbolTlValue(symbol, thread);
binding->symbol = symbol;
binding->symbol = symbol;
- SetTlSymbolValue(symbol, value,thread);
+ SetTlSymbolValue(symbol, value, thread);
}
void
}
void