3020 |
for (i = 1; i < nargs; i += 2) |
for (i = 1; i < nargs; i += 2) |
3021 |
args[i] = separator; |
args[i] = separator; |
3022 |
|
|
3023 |
|
GCPRO1 (*args); |
3024 |
|
gcpro1.nvars = nargs; |
3025 |
ret = Fconcat (nargs, args); |
ret = Fconcat (nargs, args); |
3026 |
|
UNGCPRO; |
3027 |
|
|
3028 |
SAFE_FREE_LISP (nargs); |
SAFE_FREE_LISP (nargs); |
3029 |
|
|
3030 |
return ret; |
return ret; |
3040 |
register Lisp_Object len; |
register Lisp_Object len; |
3041 |
register int leni; |
register int leni; |
3042 |
register Lisp_Object *args; |
register Lisp_Object *args; |
3043 |
|
struct gcpro gcpro1; |
3044 |
Lisp_Object ret; |
Lisp_Object ret; |
3045 |
USE_SAFE_ALLOCA; |
USE_SAFE_ALLOCA; |
3046 |
|
|
3051 |
|
|
3052 |
mapcar1 (leni, args, function, sequence); |
mapcar1 (leni, args, function, sequence); |
3053 |
|
|
3054 |
|
GCPRO1 (*args); |
3055 |
|
gcpro1.nvars = leni; |
3056 |
ret = Flist (leni, args); |
ret = Flist (leni, args); |
3057 |
|
UNGCPRO; |
3058 |
|
|
3059 |
SAFE_FREE_LISP (leni); |
SAFE_FREE_LISP (leni); |
3060 |
|
|
3061 |
return ret; |
return ret; |