2280 |
&aux x) |
&aux x) |
2281 |
int s, e, ep; |
int s, e, ep; |
2282 |
@ |
@ |
2283 |
check_type_string(&strng); |
if (junk_allowed==Cnil) |
2284 |
|
check_type_string(&strng); |
2285 |
get_string_start_end(strng, start, end, &s, &e); |
get_string_start_end(strng, start, end, &s, &e); |
2286 |
if (type_of(radix) != t_fixnum || |
if (type_of(radix) != t_fixnum || |
2287 |
fix(radix) < 2 || fix(radix) > 36) |
fix(radix) < 2 || fix(radix) > 36) |
2317 |
@(return x `make_fixnum(e)`) |
@(return x `make_fixnum(e)`) |
2318 |
|
|
2319 |
CANNOT_PARSE: |
CANNOT_PARSE: |
2320 |
FEerror("Cannot parse an integer in the string ~S.", 1, strng); |
Icall_error_handler(sKparse_error, |
2321 |
|
make_simple_string("Cannot parse an integer in the string ~S."), |
2322 |
|
1, strng); |
2323 |
@) |
@) |
2324 |
|
|
2325 |
@(defun read_byte (binary_input_stream |
@(defun read_byte (binary_input_stream |