mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 15:40:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

Make cl_acons a function with fixed number of arguments.

Browse source
This commit is contained in:
jjgarcia 2002-11-18 11:22:45 +00:00
parent 1cae8539ff
commit 7ecf198780
3 changed files with 14 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/c/list.d
View file

@ -276,11 +276,6 @@ cl_return @ninth LENTH(8)
cl_return @tenth LENTH(9)
#undef LENTH
@(defun cons (car cdr)
@
@(return CONS(car, cdr))
@)
static bool
tree_equal(cl_object x, cl_object y)
{
@ -850,10 +845,17 @@ cl_return
return1(output);
}
@(defun acons (x y z)
@
cl_object
cl_cons(cl_object x, cl_object y)
{
@(return CONS(x, y))
}
cl_object
cl_acons(cl_object x, cl_object y, cl_object z)
{
@(return CONS(CONS(x, y), z))
@)
}
@(defun pairlis (keys data &optional a_list)
cl_object k, d;

4
src/c/symbols_list.h
View file

@ -70,7 +70,7 @@ cl_symbols[] = {
{">", CL_ORDINARY, cl_G, -1},
{">=", CL_ORDINARY, cl_GE, -1},
{"ABS", CL_ORDINARY, NULL, -1},
{"ACONS", CL_ORDINARY, cl_acons, -1},
{"ACONS", CL_ORDINARY, cl_acons, 3},
{"ACOS", CL_ORDINARY, NULL, -1},
{"ACOSH", CL_ORDINARY, NULL, -1},
{"ADJOIN", CL_ORDINARY, cl_adjoin, -1},
@ -237,7 +237,7 @@ cl_symbols[] = {
{"COND", FORM_ORDINARY, NULL, -1},
{"CONDITION", CL_ORDINARY, NULL, -1},
{"CONJUGATE", CL_ORDINARY, cl_conjugate, 1},
{"CONS", CL_ORDINARY, cl_cons, -1},
{"CONS", CL_ORDINARY, cl_cons, 2},
{"CONSP", CL_ORDINARY, cl_consp, 1},
{"CONSTANTLY", CL_ORDINARY, NULL, -1},
{"CONSTANTP", CL_ORDINARY, cl_constantp, 1},

4
src/h/external.h
View file

@ -565,10 +565,11 @@ extern cl_object cl_eighth(cl_object x);
extern cl_object cl_ninth(cl_object x);
extern cl_object cl_tenth(cl_object x);
extern cl_object cl_nreconc(cl_object x, cl_object y);
extern cl_object cl_cons(cl_object x, cl_object y);
extern cl_object cl_acons(cl_object x, cl_object y, cl_object z);
extern cl_object cl_list _ARGS((int narg, ...));
extern cl_object cl_listX _ARGS((int narg, ...));
extern cl_object cl_append _ARGS((int narg, ...));
extern cl_object cl_cons _ARGS((int narg, cl_object car, cl_object cdr));
extern cl_object cl_tree_equal _ARGS((int narg, cl_object x, cl_object y, ...));
extern cl_object cl_endp _ARGS((int narg, cl_object x));
extern cl_object cl_list_length _ARGS((int narg, cl_object x));
@ -601,7 +602,6 @@ extern cl_object cl_member_if_not _ARGS((int narg, cl_object pred, cl_object arg
extern cl_object si_member1 _ARGS((int narg, cl_object item, cl_object list, ...));
extern cl_object cl_tailp _ARGS((int narg, cl_object y, cl_object x));
extern cl_object cl_adjoin _ARGS((int narg, cl_object item, cl_object list, cl_object k1, cl_object v1, cl_object k2, cl_object v2, cl_object k3, cl_object v3));
extern cl_object cl_acons _ARGS((int narg, cl_object x, cl_object y, cl_object z));
extern cl_object cl_pairlis _ARGS((int narg, cl_object keys, cl_object data, ...));
extern cl_object cl_rassoc _ARGS((int narg, cl_object item, cl_object alist, ...));
extern cl_object cl_assoc _ARGS((int narg, cl_object item, cl_object alist, ...));