71 |
return(x); |
return(x); |
72 |
} |
} |
73 |
|
|
74 |
void |
LFD(Lelt)() |
|
Lelt() |
|
75 |
{ |
{ |
76 |
check_arg(2); |
check_arg(2); |
77 |
vs_base[0] = elt(vs_base[0], fixint(vs_base[1])); |
vs_base[0] = elt(vs_base[0], fixint(vs_base[1])); |
128 |
return(Cnil); |
return(Cnil); |
129 |
} |
} |
130 |
|
|
131 |
void |
LFD(siLelt_set)() |
|
siLelt_set() |
|
132 |
{ |
{ |
133 |
check_arg(3); |
check_arg(3); |
134 |
vs_base[0] = elt_set(vs_base[0], fixint(vs_base[1]), vs_base[2]); |
vs_base[0] = elt_set(vs_base[0], fixint(vs_base[1]), vs_base[2]); |
315 |
for the sequence ~S.", 3, start, end, sequence); |
for the sequence ~S.", 3, start, end, sequence); |
316 |
@) |
@) |
317 |
|
|
318 |
void |
LFD(Lcopy_seq)() |
|
Lcopy_seq() |
|
319 |
{ |
{ |
320 |
check_arg(1); |
check_arg(1); |
321 |
vs_push(small_fixnum(0)); |
vs_push(small_fixnum(0)); |
355 |
} |
} |
356 |
} |
} |
357 |
|
|
358 |
void |
LFD(Llength)() |
|
Llength() |
|
359 |
{ |
{ |
360 |
check_arg(1); |
check_arg(1); |
361 |
vs_base[0] = make_fixnum(length(vs_base[0])); |
vs_base[0] = make_fixnum(length(vs_base[0])); |
362 |
} |
} |
363 |
|
|
364 |
void |
LFD(Lreverse)() |
|
Lreverse() |
|
365 |
{ |
{ |
366 |
check_arg(1); |
check_arg(1); |
367 |
vs_base[0] = reverse(vs_base[0]); |
vs_base[0] = reverse(vs_base[0]); |
455 |
} |
} |
456 |
} |
} |
457 |
|
|
458 |
void |
LFD(Lnreverse)() |
|
Lnreverse() |
|
459 |
{ |
{ |
460 |
check_arg(1); |
check_arg(1); |
461 |
vs_base[0] = nreverse(vs_base[0]); |
vs_base[0] = nreverse(vs_base[0]); |