X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fdynbind.c;h=2d9f47e3e3685f7b01d6c7b8713ecd3b40509652;hb=a7c2a16d0c2be6709becc962be1cb5e0aeda68c6;hp=8a3a548882e21e690de3d26eb1603d1be5bdf0a5;hpb=6cbe4d8ba6d7bc469d03a72514c789b1f3944878;p=sbcl.git diff --git a/src/runtime/dynbind.c b/src/runtime/dynbind.c index 8a3a548..2d9f47e 100644 --- a/src/runtime/dynbind.c +++ b/src/runtime/dynbind.c @@ -28,33 +28,33 @@ void bind_variable(lispobj symbol, lispobj value) { - lispobj old_value; - struct binding *binding; + lispobj old_value; + struct binding *binding; - old_value = SymbolValue(symbol); - binding = GetBSP(); - SetBSP(binding+1); + old_value = SymbolValue(symbol); + binding = GetBSP(); + SetBSP(binding+1); - binding->value = old_value; - binding->symbol = symbol; - SetSymbolValue(symbol, value); + binding->value = old_value; + binding->symbol = symbol; + SetSymbolValue(symbol, value); } void unbind(void) { - struct binding *binding; - lispobj symbol; + struct binding *binding; + lispobj symbol; - binding = GetBSP() - 1; + binding = GetBSP() - 1; - symbol = binding->symbol; + symbol = binding->symbol; - SetSymbolValue(symbol, binding->value); + SetSymbolValue(symbol, binding->value); - binding->symbol = 0; + binding->symbol = 0; - SetBSP(binding); + SetBSP(binding); } void