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

Lines Matching defs:arguments
271 	    LispDestroy("%s: too many arguments %s",
409     /* Compare arguments and restore builtin stack */
566 		    LispDestroy("%s: too much arguments to initialize %s",
632 		    LispDestroy("%s: too much arguments to initialize %s",
645 	/* LET* is identical to &AUX arguments, just bind the symbol */
862 	    LispDestroy("%s: odd number of arguments", STRFUN(builtin));
1391  * opcodes to load arguments at bytecode run time. */
1430     /* Normal arguments */
1441 	LispDestroy("%s: too few arguments", STROBJ(name));
1481 	    /* default arguments are evaluated for macros */
1521 	/* Check if arguments are correctly specified */
1552 		LispDestroy("%s: &KEY needs arguments as pairs",
1598 		/* default arguments are evaluated for macros */
1623 	/* &KEY uses all remaining arguments */
1639 	/* Count number of arguments and check if it is a list of constants */
1650 	 * change the &REST arguments even if it is a constant list
1748 	LispDestroy("%s: too many arguments", STROBJ(name));
1760 ComFuncall(LispCom *com, LispObj *function, LispObj *arguments, int eval)
1783 		 * don't evaluate arguments. */
1792 		    for (obj = arguments; CONSP(obj); obj = CDR(obj)) {
1803 		base = ComCall(com, alist, function, arguments,
1826 		    ComMacroCall(com, alist, function, lambda, arguments);
1831 			ComRecursiveCall(com, alist, function, arguments);
1834 			ComInlineCall(com, alist, function, arguments,
1837 			com_Funcall(com, function, arguments);
1847 		if (!CONSP(arguments) || CONSP(CDR(arguments)))
1848 		    LispDestroy("%s: too %s arguments", atom->key->value,
1849 				CONSP(arguments) ? "many" : "few");
1851 		ComEval(com, CAR(arguments));
1863 		base = ComCall(com, alist, function, arguments, 1, 0, 0);
1874 		com_Funcall(com, function, arguments);
1881 	    ComInlineCall(com, alist, NIL, arguments, lambda->data.lambda.code);
1893 		    ComInlineCall(com, alist, NIL, arguments, lambda->data.lambda.code);
2005 		 LispObj *name, LispObj *arguments)
2014     /* Generate code to push function arguments in the stack */
2015     base = ComCall(com, alist, name, arguments, 1, 0, 0);
2045 	      LispObj *name, LispObj *arguments, LispObj *lambda)
2056     /* Generate code to push function arguments in the stack */
2057     base = ComCall(com, alist, name, arguments, 1, 0, 0);
2095 ComMacroExpandFuncall(LispCom *com, LispObj *function, LispObj *arguments)
2097     return (LispFuncall(function, arguments, 1));
2194 	     LispObj *name, LispObj *lambda, LispObj *arguments)
2200     base = ComCall(com, alist, name, arguments, 0, 0, 0);