199 |
default: |
default: |
200 |
break; |
break; |
201 |
} |
} |
202 |
FEerror("~S cannot be coerced to a string.", 1, x); |
vs_push(x); |
203 |
|
x=wrong_type_argument(sLstring,x); |
204 |
|
vs_popp; |
205 |
return(Cnil); |
return(Cnil); |
206 |
} |
} |
207 |
|
|
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_fillp */) |
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]); |
517 |
*bp = FALSE; |
*bp = FALSE; |
518 |
} else if (!isDigit(c)) |
} else if (!isDigit(c)) |
519 |
*bp = TRUE; |
*bp = TRUE; |
520 |
|
else |
521 |
|
*bp = FALSE; |
522 |
return(c); |
return(c); |
523 |
} |
} |
524 |
|
|