632 |
|
|
633 |
case smm_broadcast: |
case smm_broadcast: |
634 |
case smm_concatenated: |
case smm_concatenated: |
635 |
if (( type_of(strm->sm.sm_object0) == t_cons ) && |
if (( consp(strm->sm.sm_object0) ) && |
636 |
( type_of(strm->sm.sm_object0->c.c_car) == t_stream )) |
( type_of(strm->sm.sm_object0->c.c_car) == t_stream )) |
637 |
strm=strm->sm.sm_object0->c.c_car; |
strm=strm->sm.sm_object0->c.c_car; |
638 |
else |
else |
681 |
|
|
682 |
case smm_broadcast: |
case smm_broadcast: |
683 |
case smm_concatenated: |
case smm_concatenated: |
684 |
if (( type_of(strm->sm.sm_object0) == t_cons ) && |
if (( consp(strm->sm.sm_object0) ) && |
685 |
( type_of(strm->sm.sm_object0->c.c_car) == t_stream )) |
( type_of(strm->sm.sm_object0->c.c_car) == t_stream )) |
686 |
strm=strm->sm.sm_object0->c.c_car; |
strm=strm->sm.sm_object0->c.c_car; |
687 |
else |
else |
1136 |
} |
} |
1137 |
|
|
1138 |
i=0; |
i=0; |
1139 |
while ((type_of(a) == t_cons) && (i<start)) { |
while ((consp(a)) && (i<start)) { |
1140 |
a=a->c.c_cdr; |
a=a->c.c_cdr; |
1141 |
i++; |
i++; |
1142 |
} |
} |
1201 |
default: |
default: |
1202 |
FEwrong_type_argument(sLsequence,a); |
FEwrong_type_argument(sLsequence,a); |
1203 |
} |
} |
1204 |
if (type_of(a) != t_cons) |
if (!consp(a)) |
1205 |
aset1(a,i,val); |
aset1(a,i,val); |
1206 |
else { |
else { |
1207 |
a->c.c_car = val; |
a->c.c_car = val; |
1208 |
a=a->c.c_cdr; |
a=a->c.c_cdr; |
1209 |
if (type_of(a) != t_cons) |
if (!consp(a)) |
1210 |
i=end+1; |
i=end+1; |
1211 |
} |
} |
1212 |
} |
} |
1231 |
FEwrong_type_argument(sLnon_negative_fixnum,start); |
FEwrong_type_argument(sLnon_negative_fixnum,start); |
1232 |
|
|
1233 |
if ((end == Cnil) && |
if ((end == Cnil) && |
1234 |
(type_of(arr) == t_cons)) |
(consp(arr))) |
1235 |
iend = length(arr); |
iend = length(arr); |
1236 |
else |
else |
1237 |
if ((end == Cnil) && |
if ((end == Cnil) && |
1279 |
} |
} |
1280 |
|
|
1281 |
i=0; |
i=0; |
1282 |
while ((type_of(a) == t_cons) && (i<start)) { |
while ((consp(a)) && (i<start)) { |
1283 |
a=a->c.c_cdr; |
a=a->c.c_cdr; |
1284 |
i++; |
i++; |
1285 |
} |
} |
1288 |
for (i=start;i<end;i++) { |
for (i=start;i<end;i++) { |
1289 |
if (i<end) { |
if (i<end) { |
1290 |
j=i; |
j=i; |
1291 |
if (type_of(a) != t_cons) |
if (!consp(a)) |
1292 |
val = fLrow_major_aref(a,i); |
val = fLrow_major_aref(a,i); |
1293 |
else { |
else { |
1294 |
val = a->c.c_car; |
val = a->c.c_car; |
1295 |
a = a->c.c_cdr; |
a = a->c.c_cdr; |
1296 |
if (type_of(a) != t_cons) |
if (!consp(a)) |
1297 |
i=end+1; |
i=end+1; |
1298 |
} |
} |
1299 |
|
|
1334 |
FEwrong_type_argument(sLnon_negative_fixnum,start); |
FEwrong_type_argument(sLnon_negative_fixnum,start); |
1335 |
|
|
1336 |
if ((end == Cnil) && |
if ((end == Cnil) && |
1337 |
(type_of(arr) == t_cons)) |
(consp(arr))) |
1338 |
iend = length(arr); |
iend = length(arr); |
1339 |
else |
else |
1340 |
if ((end == Cnil) && |
if ((end == Cnil) && |