1209 |
else |
else |
1210 |
istart = FIX_CHECK(start); |
istart = FIX_CHECK(start); |
1211 |
if (istart < 0) |
if (istart < 0) |
1212 |
FEwrong_type_argument(sLpositive_fixnum,start); |
FEwrong_type_argument(sLnon_negative_fixnum,start); |
1213 |
|
|
1214 |
if ((end == Cnil) && |
if ((end == Cnil) && |
1215 |
(type_of(arr) == t_cons)) |
(type_of(arr) == t_cons)) |
1225 |
else |
else |
1226 |
iend = FIX_CHECK(end); |
iend = FIX_CHECK(end); |
1227 |
if (iend < 0) |
if (iend < 0) |
1228 |
FEwrong_type_argument(sLpositive_fixnum,end); |
FEwrong_type_argument(sLnon_negative_fixnum,end); |
1229 |
|
|
1230 |
ipos=read_sequence_stream(arr,str,istart,iend); |
ipos=read_sequence_stream(arr,str,istart,iend); |
1231 |
start = make_fixnum(ipos); |
start = make_fixnum(ipos); |
1312 |
else |
else |
1313 |
istart = FIX_CHECK(start); |
istart = FIX_CHECK(start); |
1314 |
if (istart < 0) |
if (istart < 0) |
1315 |
FEwrong_type_argument(sLpositive_fixnum,start); |
FEwrong_type_argument(sLnon_negative_fixnum,start); |
1316 |
|
|
1317 |
if ((end == Cnil) && |
if ((end == Cnil) && |
1318 |
(type_of(arr) == t_cons)) |
(type_of(arr) == t_cons)) |
1328 |
else |
else |
1329 |
iend = FIX_CHECK(end); |
iend = FIX_CHECK(end); |
1330 |
if (iend < 0) |
if (iend < 0) |
1331 |
FEwrong_type_argument(sLpositive_fixnum,end); |
FEwrong_type_argument(sLnon_negative_fixnum,end); |
1332 |
|
|
1333 |
ipos=write_sequence_stream(arr,str,istart,iend); |
ipos=write_sequence_stream(arr,str,istart,iend); |
1334 |
if (ipos == iend) |
if (ipos == iend) |