mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2025-12-31 23:00:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

The only time we insert a spurious element is when initializing a stack.

Browse source
This commit is contained in:
jgarcia 2007-12-23 09:30:37 +00:00
parent 1d4d930a88
commit 7f080fcbba
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/interpreter.d
View file

@ -54,7 +54,8 @@ cl_stack_set_size(cl_index new_size)
/* A stack always has at least one element. This is assumed by cl__va_start
* and friends, which take a sp=0 to have no arguments.
*/
cl_stack_push(MAKE_FIXNUM(0));
if (top == 0)
cl_stack_push(MAKE_FIXNUM(0));
end_critical_section();
}