mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-16 14:21:48 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove unused variables in stacks.d

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-01-22 19:37:57 +01:00
parent 2d8dbea456
commit b3a5eff059
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/stacks.d
View file

@ -155,7 +155,7 @@ ecl_bds_bind_special_case(cl_object s)
void
ecl_bds_bind(cl_env_ptr env, cl_object s, cl_object value)
{
cl_object bindings, *location, old_value;
cl_object *location;
struct bds_bd *slot;
cl_index index = s->symbol.binding;
AGAIN:
@ -174,7 +174,7 @@ ecl_bds_bind(cl_env_ptr env, cl_object s, cl_object value)
void
ecl_bds_push(cl_env_ptr env, cl_object s)
{
cl_object bindings, *location, old_value;
cl_object *location;
struct bds_bd *slot;
cl_index index = s->symbol.binding;
AGAIN: