3000 |
register Lisp_Object *args; |
register Lisp_Object *args; |
3001 |
register int i; |
register int i; |
3002 |
struct gcpro gcpro1; |
struct gcpro gcpro1; |
|
int nbytes; |
|
3003 |
Lisp_Object ret; |
Lisp_Object ret; |
3004 |
USE_SAFE_ALLOCA; |
USE_SAFE_ALLOCA; |
3005 |
|
|
3008 |
nargs = leni + leni - 1; |
nargs = leni + leni - 1; |
3009 |
if (nargs < 0) return build_string (""); |
if (nargs < 0) return build_string (""); |
3010 |
|
|
3011 |
nbytes = nargs * sizeof (Lisp_Object); |
SAFE_ALLOCA_LISP (args, nargs); |
|
SAFE_ALLOCA_LISP (args, nbytes); |
|
3012 |
|
|
3013 |
GCPRO1 (separator); |
GCPRO1 (separator); |
3014 |
mapcar1 (leni, args, function, sequence); |
mapcar1 (leni, args, function, sequence); |
3021 |
args[i] = separator; |
args[i] = separator; |
3022 |
|
|
3023 |
ret = Fconcat (nargs, args); |
ret = Fconcat (nargs, args); |
3024 |
SAFE_FREE (nbytes); |
SAFE_FREE_LISP (nargs); |
3025 |
|
|
3026 |
return ret; |
return ret; |
3027 |
} |
} |
3036 |
register Lisp_Object len; |
register Lisp_Object len; |
3037 |
register int leni; |
register int leni; |
3038 |
register Lisp_Object *args; |
register Lisp_Object *args; |
|
int nbytes; |
|
3039 |
Lisp_Object ret; |
Lisp_Object ret; |
3040 |
USE_SAFE_ALLOCA; |
USE_SAFE_ALLOCA; |
3041 |
|
|
3042 |
len = Flength (sequence); |
len = Flength (sequence); |
3043 |
leni = XFASTINT (len); |
leni = XFASTINT (len); |
3044 |
|
|
3045 |
nbytes = leni * sizeof (Lisp_Object); |
SAFE_ALLOCA_LISP (args, leni); |
|
SAFE_ALLOCA_LISP (args, nbytes); |
|
3046 |
|
|
3047 |
mapcar1 (leni, args, function, sequence); |
mapcar1 (leni, args, function, sequence); |
3048 |
|
|
3049 |
ret = Flist (leni, args); |
ret = Flist (leni, args); |
3050 |
SAFE_FREE(nbytes); |
SAFE_FREE_LISP (leni); |
3051 |
|
|
3052 |
return ret; |
return ret; |
3053 |
} |
} |