mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 16:00:31 -07:00
Code Issues Projects Releases Packages Wiki Activity

Fixes to remove warnings about unused variables. Replaced some uses of @(return) with ecl_return*()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-04-10 23:20:40 +02:00
parent 5c1dca4c67
commit 036cb55928
30 changed files with 104 additions and 132 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/printer/write_code.d
View file

@ -25,7 +25,7 @@ _ecl_write_bytecodes(cl_object x, cl_object stream)
if (ecl_print_readably()) {
cl_index i;
cl_object lex = Cnil;
cl_object code_l=Cnil, data_l=Cnil;
cl_object code_l=Cnil;
for ( i=x->bytecodes.code_size-1 ; i<(cl_index)(-1l) ; i-- )
code_l = ecl_cons(MAKE_FIXNUM(((cl_opcode*)(x->bytecodes.code))[i]), code_l);
writestr_stream("#Y", stream);