211 |
check_type_string(&s); |
check_type_string(&s); |
212 |
if (type_of(i) != t_fixnum) |
if (type_of(i) != t_fixnum) |
213 |
illegal_index(s, i); |
illegal_index(s, i); |
214 |
if ((j = fix(i)) < 0 /*|| j >= s->st.st_fillp*/) |
if ((j = fix(i)) < 0 || j >= s->st.st_dim) |
215 |
illegal_index(s, i); |
illegal_index(s, i); |
216 |
@(return `code_char(s->ust.ust_self[j])`) |
@(return `code_char(s->ust.ust_self[j])`) |
217 |
@) |
@) |
225 |
check_type_string(&vs_base[0]); |
check_type_string(&vs_base[0]); |
226 |
if (type_of(vs_base[1]) != t_fixnum) |
if (type_of(vs_base[1]) != t_fixnum) |
227 |
illegal_index(vs_base[0], vs_base[1]); |
illegal_index(vs_base[0], vs_base[1]); |
228 |
if ((j = fix(vs_base[1])) < 0 /* || j >= vs_base[0]->st.st_fillp */) |
if ((j = fix(vs_base[1])) < 0 || j >= vs_base[0]->st.st_dim) |
229 |
illegal_index(vs_base[0], vs_base[1]); |
illegal_index(vs_base[0], vs_base[1]); |
230 |
check_type_character(&vs_base[2]); |
check_type_character(&vs_base[2]); |
231 |
vs_base[0]->st.st_self[j] = char_code(vs_base[2]); |
vs_base[0]->st.st_self[j] = char_code(vs_base[2]); |
435 |
|
|
436 |
case t_vector: |
case t_vector: |
437 |
for (i = 0, f = char_bag->v.v_fillp; i < f; i++) { |
for (i = 0, f = char_bag->v.v_fillp; i < f; i++) { |
438 |
if (type_of(char_bag->v.v_self[i]) != t_character |
if (type_of(char_bag->v.v_self[i]) == t_character |
439 |
&& c == char_code(char_bag->v.v_self[i])) |
&& c == char_code(char_bag->v.v_self[i])) |
440 |
return(TRUE); |
return(TRUE); |
441 |
} |
} |