+ binding = ((struct binding *)get_binding_stack_pointer(thread)) - 1;
+
+ symbol = binding->symbol;
+
+ SetTlSymbolValue(symbol, binding->value,thread);
+
+ binding->symbol = 0;
+ binding->value = 0;
+
+ set_binding_stack_pointer(thread,binding);
+}
+
+void
+unbind_variable(lispobj name, void *th)
+{
+ struct thread *thread=(struct thread *)th;
+ struct binding *binding;
+ lispobj symbol;
+
+ binding = ((struct binding *)get_binding_stack_pointer(thread)) - 1;