diff --git a/ldb/dynbind.c b/ldb/dynbind.c index 4908ee2b0a104505233fe81c153cb44a3d058ba5..f753121fb27107b957bcabcc6b71fea7963a42c1 100644 --- a/ldb/dynbind.c +++ b/ldb/dynbind.c @@ -1,5 +1,5 @@ /* - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/dynbind.c,v 1.1 1990/03/29 02:55:05 ch Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/dynbind.c,v 1.2 1990/03/29 21:13:23 ch Exp $ * * Support for dynamic binding from C. */ @@ -16,7 +16,7 @@ lispobj symbol, value; old_value = SymbolValue(symbol); binding = (struct binding *) current_binding_stack_pointer; - current_binding_stack_pointer += (sizeof(binding) / sizeof(lispobj)); + current_binding_stack_pointer += (sizeof(struct binding) / sizeof(lispobj)); binding->value = old_value; binding->symbol = symbol; SetSymbolValue(symbol, value); @@ -35,7 +35,7 @@ unbind() binding->symbol = 0; - current_binding_stack_pointer -= (sizeof(binding) / sizeof(lispobj)); + current_binding_stack_pointer -= (sizeof(struct binding) / sizeof(lispobj)); } unbind_to_here(bsp) @@ -54,6 +54,7 @@ lispobj *bsp; binding->symbol = 0; } - current_binding_stack_pointer -= (sizeof(binding) / sizeof(lispobj)); + current_binding_stack_pointer -= + (sizeof(struct binding) / sizeof(lispobj)); } }