Cross Reference: /xsrc/external/mit/xedit/dist/lisp/core.c

Lines Matching defs:arguments
297     /* no arguments */
525     LispObj *result, *arguments;
535 	arguments = arg;
544 	arguments = cons = CONS(arg, NIL);
545 	GC_PROTECT(arguments);
561     result = APPLY(function, arguments);
1467  error control-string &rest arguments
1472     LispObj *control_string, *arguments;
1474     arguments = ARGUMENT(1);
1477     arglist = CONS(NIL, CONS(control_string, arguments));
1518     LispObj *result, *list, *item, *arguments, *acons, *value;
1554     arguments = acons = CONS(NIL, NIL);
1555     GC_PROTECT(arguments);
1565 	for (acons = arguments, j = 0; j < count; acons = CDR(acons), j++) {
1576 	value = APPLY(predicate, arguments);
1759  funcall function &rest arguments
1764     LispObj *function, *arguments;
1766     arguments = ARGUMENT(1);
1769     result = APPLY(function, arguments);
2146 		    LispDestroy("%s: too much arguments to initialize %s",
2211 		    LispDestroy("%s: too much arguments to initialize %s",
2353     /* Check if arguments are valid lists */
2936 /* Like nconc but ignore non list arguments */
2984     LispObj *result = NIL, *cons, *arguments, *acons, *rest, *alist, *value;
3002      * extra arguments will be used, and calculate result length. */
3038     arguments = acons = CONS(NIL, NIL);
3039     GC_PROTECT(arguments);
3041     /* Allocate space for extra arguments */
3049 	acons = arguments;
3065 	value = APPLY(function, arguments);
3096     LispObj *result = NIL, *cons, *arguments, *acons, *rest, *alist, *value;
3113     /* check remaining arguments */
3143     arguments = acons = CONS(NIL, NIL);
3144     GC_PROTECT(arguments);
3152 	acons = arguments;
3165 	value = APPLY(function, arguments);
3335     LispObj *arguments, *cons, *result;
3343     arguments = cons = NIL;
3348 	    if (arguments == NIL) {
3349 		arguments = cons = CONS(result, NIL);
3350 		GC_PROTECT(arguments);
3368     result = APPLY(function, arguments);
3935     LispObj *arguments, *object;
3944     arguments = declaration;
3945     object = CAR(arguments);
3950 	for (arguments = CDR(arguments); CONSP(arguments);
3951 	     arguments = CDR(arguments)) {
3952 	    object = CAR(arguments);
4747     /* Get function arguments */
5619 	    LispDestroy("%s: odd number of arguments", STRFUN(builtin));
5645 	    LispDestroy("%s: odd number of arguments", STRFUN(builtin));
5678 	    LispDestroy("%s: odd number of arguments", STRFUN(builtin));
5736 		LispObj *arguments, *cons;
5739 		    arguments = EVAL(CAR(place));
5740 		    GC_PROTECT(arguments);
5741 		    result = APPLY2(setf, arguments, value);
5744 		    arguments = EVAL(CAR(place));
5745 		    GC_PROTECT(arguments);
5748 		    result = APPLY3(setf, arguments, cons, value);
5751 		    arguments = cons = CONS(EVAL(CAR(place)), NIL);
5752 		    GC_PROTECT(arguments);
5758 		    result = APPLY(setf, arguments);
5798 	    LispDestroy("%s: odd number of arguments", STRFUN(builtin));
5813 	    LispObj *arguments, *cons;
5849 		    arguments = EVAL(CAR(place));
5850 		    GC_PROTECT(arguments);
5851 		    (void)APPLY2(setf, arguments, value);
5854 		    arguments = EVAL(CAR(place));
5855 		    GC_PROTECT(arguments);
5858 		    (void)APPLY3(setf, arguments, cons, value);
5861 		    arguments = cons = CONS(EVAL(CAR(place)), NIL);
5862 		    GC_PROTECT(arguments);
5868 		    (void)APPLY(setf, arguments);