3020 |
for (i = 1; i < nargs; i += 2) |
for (i = 1; i < nargs; i += 2) |
3021 |
args[i] = separator; |
args[i] = separator; |
3022 |
|
|
|
GCPRO1 (*args); |
|
|
gcpro1.nvars = nargs; |
|
3023 |
ret = Fconcat (nargs, args); |
ret = Fconcat (nargs, args); |
|
UNGCPRO; |
|
|
|
|
3024 |
SAFE_FREE_LISP (nargs); |
SAFE_FREE_LISP (nargs); |
3025 |
|
|
3026 |
return ret; |
return ret; |
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; |
|
struct gcpro gcpro1; |
|
3039 |
Lisp_Object ret; |
Lisp_Object ret; |
3040 |
USE_SAFE_ALLOCA; |
USE_SAFE_ALLOCA; |
3041 |
|
|
3046 |
|
|
3047 |
mapcar1 (leni, args, function, sequence); |
mapcar1 (leni, args, function, sequence); |
3048 |
|
|
|
GCPRO1 (*args); |
|
|
gcpro1.nvars = leni; |
|
3049 |
ret = Flist (leni, args); |
ret = Flist (leni, args); |
|
UNGCPRO; |
|
|
|
|
3050 |
SAFE_FREE_LISP (leni); |
SAFE_FREE_LISP (leni); |
3051 |
|
|
3052 |
return ret; |
return ret; |