2418 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
2419 |
|
|
2420 |
len = Flength (sequence); |
len = Flength (sequence); |
2421 |
|
if (CHAR_TABLE_P (sequence)) |
2422 |
|
wrong_type_argument (Qlistp, sequence); |
2423 |
leni = XINT (len); |
leni = XINT (len); |
2424 |
nargs = leni + leni - 1; |
nargs = leni + leni - 1; |
2425 |
if (nargs < 0) return build_string (""); |
if (nargs < 0) return build_string (""); |
2451 |
register Lisp_Object *args; |
register Lisp_Object *args; |
2452 |
|
|
2453 |
len = Flength (sequence); |
len = Flength (sequence); |
2454 |
|
if (CHAR_TABLE_P (sequence)) |
2455 |
|
wrong_type_argument (Qlistp, sequence); |
2456 |
leni = XFASTINT (len); |
leni = XFASTINT (len); |
2457 |
args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object)); |
args = (Lisp_Object *) alloca (leni * sizeof (Lisp_Object)); |
2458 |
|
|
2471 |
register int leni; |
register int leni; |
2472 |
|
|
2473 |
leni = XFASTINT (Flength (sequence)); |
leni = XFASTINT (Flength (sequence)); |
2474 |
|
if (CHAR_TABLE_P (sequence)) |
2475 |
|
wrong_type_argument (Qlistp, sequence); |
2476 |
mapcar1 (leni, 0, function, sequence); |
mapcar1 (leni, 0, function, sequence); |
2477 |
|
|
2478 |
return sequence; |
return sequence; |