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

Lines Matching defs:argument
605 /* byte code function argument list for functions that don't change it's
606  * &REST argument list. */
1872 	    LispDestroy("%s %s: %s cannot be a %s argument list",
1889 		LispDestroy("builtin function argument cannot have default value");
1893 		    LispDestroy("%s %s: bad &AUX argument %s",
1934 			LispDestroy("%s %s: %s cannot be a %s argument name",
1942 			LispDestroy("%s %s: bad argument specification %s",
1950 		     * argument list, so that a function argument keyword
1975 		    LispDestroy("%s %s: %s cannot be a %s argument name",
1983 		    LispDestroy("%s %s: bad argument specification %s",
2013 	    LispDestroy("%s %s: %s cannot be a %s argument",
2066 		 * argument names starting with the '&' character */
2072 	    /* Add argument to alist */
2091 		 * argument list, so that a function argument keyword
2134     /* Check for dotted argument list */
2962 /* string argument must be static, or allocated */
3615 	LispDestroy("DOCUMENTATION: invalid argument");
3646 	LispDestroy("DOCUMENTATION: invalid argument");
3665 	LispDestroy("DOCUMENTATION: invalid argument");
3772 LispEvalBackquoteObject(LispObj *argument, int list, int quote)
3774     LispObj *result = argument, *object;
3776     if (!POINTERP(argument))
3777 	return (argument);
3779     else if (XCOMMAP(argument)) {
3780 	/* argument may need to be evaluated */
3784 	if (!list && argument->data.comma.atlist)
3792 	result = object = argument->data.comma.eval;
3797 	     * don't call LispEval or quote argument will be reset */
3805 	    result = result == object ? argument : COMMA(result, atlist);
3808     else if (XBACKQUOTEP(argument)) {
3809 	object = argument->data.quote;
3813 	    result = result == object ? argument : BACKQUOTE(result);
3816     else if (XQUOTEP(argument) && POINTERP(argument->data.quote) &&
3817 	     (XCOMMAP(argument->data.quote) ||
3818 	      XBACKQUOTEP(argument->data.quote) ||
3819 	      XCONSP(argument->data.quote))) {
3821 	object = argument->data.quote;
3823 	result = LispEvalBackquote(argument->data.quote, quote);
3824 	result = result == object ? argument : QUOTE(result);
3831 LispEvalBackquote(LispObj *argument, int quote)
3836     if (!CONSP(argument))
3837 	return (LispEvalBackquoteObject(argument, 0, quote));
3851     for (cons = argument; ; cons = CDR(cons)) {
3852 	/* if false, last argument, and if cons is not NIL, a dotted list */
3944 	/* if last argument list element processed */
4311 		     * in the argument list, it is an error. */
4316 			    /* Symbol found in the argument list. */
4331 			/* Bad argument. */
4341 			    /* Symbol found in the argument list. */
4438 			/* Don't check if argument is a valid keyword or
4509 	    /* If not in argument specification list... */
4781 LispApply1(LispObj *function, LispObj *argument)
4786     arguments.data.cons.car = argument;