mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 23:32:17 -08: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/string.d
View file

@ -425,7 +425,6 @@ compare_base(unsigned char *s1, cl_index l1, unsigned char *s2, cl_index l2,
cl_index s1, e1, s2, e2;
@
{
AGAIN:
string1 = cl_string(string1);
string2 = cl_string(string2);
p = ecl_vector_start_end(@[string=], string1, start1, end1);
@ -521,7 +520,6 @@ ecl_string_eq(cl_object x, cl_object y)
cl_index_pair p;
int output;
@
AGAIN:
string1 = cl_string(string1);
string2 = cl_string(string2);
p = ecl_vector_start_end(@[string=], string1, start1, end1);