3132 |
else /* Must be a list, since Flength did not get an error */ |
else /* Must be a list, since Flength did not get an error */ |
3133 |
{ |
{ |
3134 |
tail = seq; |
tail = seq; |
3135 |
for (i = 0; i < leni; i++) |
for (i = 0; i < leni && CONSP (tail); i++) |
3136 |
{ |
{ |
3137 |
dummy = call1 (fn, Fcar (tail)); |
dummy = call1 (fn, XCAR (tail)); |
3138 |
if (vals) |
if (vals) |
3139 |
vals[i] = dummy; |
vals[i] = dummy; |
3140 |
tail = XCDR (tail); |
tail = XCDR (tail); |
3172 |
mapcar1 (leni, args, function, sequence); |
mapcar1 (leni, args, function, sequence); |
3173 |
UNGCPRO; |
UNGCPRO; |
3174 |
|
|
3175 |
for (i = leni - 1; i >= 0; i--) |
for (i = leni - 1; i > 0; i--) |
3176 |
args[i + i] = args[i]; |
args[i + i] = args[i]; |
3177 |
|
|
3178 |
for (i = 1; i < nargs; i += 2) |
for (i = 1; i < nargs; i += 2) |