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

Lines Matching defs:arguments
92 /* increases storage size for stack of builtin arguments */
317     {LispFunction, Lisp_Error, "error control-string &rest arguments"},
339     {LispFunction, Lisp_Format, "format destination control-string &rest arguments"},
341     {LispFunction, Lisp_Funcall, "funcall function &rest arguments", 1},
946     /* protect stack of arguments to builtin functions */
1794     LispObj *arguments, *cons, *obj, *prev;
1796     arguments = cons = prev = NIL;
1799 	    if (arguments == NIL) {
1800 		arguments = cons = prev = CONS(obj, NIL);
1801 		GC_PROTECT(arguments);
1812 	    if (arguments == NIL) {
1813 		arguments = cons = prev = CONS(obj, NIL);
1814 		GC_PROTECT(arguments);
1825 	    if (arguments == NIL) {
1826 		arguments = cons = prev = CONS(obj, NIL);
1827 		GC_PROTECT(arguments);
1839     if (arguments != NIL) {
1840 	if (arguments == cons)
1841 	    arguments = CAR(cons);
1846     return (arguments);
2005 	    /* Normal arguments cannot have default value */
2060 			LispDestroy("builtin function cannot have &AUX arguments");
2136 	LispDestroy("%s %s: %s cannot end %s arguments",
4043  * can save some cpu time. Useful for normal arguments
4087      * checking the value of the arguments eval and builtin too much times */
4090     /* Normal arguments */
4106 	     * adding the arguments. */
4124 	LispDestroy("%s: too few arguments", STROBJ(name));
4178 	/* default arguments are evaluated for macros */
4215 	/* Count number of remaining arguments */
4219 		LispDestroy("%s: &KEY needs arguments as pairs",
4226 	 * User functions don't need the arguments being pushed in the stack
4230 	 * XXX Would also be good to already have the arguments specified in
4385 			/* default arguments are evaluated for macros */
4458 		    /* default arguments are evaluated for macros */
4520 	/* &KEY uses all remaining arguments */
4593 	LispDestroy("%s: too many arguments", STROBJ(name));
4609 LispFuncall(LispObj *function, LispObj *arguments, int eval)
4619 	LispDebugger(LispDebugCallBegin, function, arguments);
4633 					   arguments, function, eval, 1);
4649 		base = LispMakeEnvironment(alist, arguments, function, eval, 0);
4663 		base = LispMakeEnvironment(alist, arguments, function, eval, 0);
4679 		cons.data.cons.cdr = arguments;
4708 	    base = LispMakeEnvironment(alist, arguments, function, eval, 0);
4720 		    base = LispMakeEnvironment(alist, arguments, NIL, eval, 0);
4783     LispObj arguments;
4785     arguments.type = LispCons_t;
4786     arguments.data.cons.car = argument;
4787     arguments.data.cons.cdr = NIL;
4789     return (LispFuncall(function, &arguments, 0));
4795     LispObj arguments, cdr;
4797     arguments.type = cdr.type = LispCons_t;
4798     arguments.data.cons.car = argument1;
4799     arguments.data.cons.cdr = &cdr;
4803     return (LispFuncall(function, &arguments, 0));
4809     LispObj arguments, car, cdr;
4811     arguments.type = car.type = cdr.type = LispCons_t;
4812     arguments.data.cons.car = arg1;
4813     arguments.data.cons.cdr = &car;
4819     return (LispFuncall(function, &arguments, 0));
4898 LispRunSetfMacro(LispAtom *atom, LispObj *arguments, LispObj *value)
4906 			       arguments, atom->object, 0, 0);