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

Lines Matching defs:lambda
285     {LispMacro, Lisp_Defmacro, "defmacro name lambda-list &rest body"},
287     {LispMacro, Lisp_Defun, "defun name lambda-list &rest body"},
288     {LispMacro, Lisp_Defsetf, "defsetf function lambda-list &rest body"},
372     {LispMacro, Lisp_Lambda, "lambda lambda-list &rest body"},
1028 			if (!SYMBOLP(entry->data.lambda.name))
1030 				entry->data.lambda.name->data.opaque.data);
2065 		/* Untill more lambda-list keywords supported, don't allow
2250 	    if (OPAQUEP(object->data.lambda.name))
2251 		object->data.lambda.name->mark = 1;
2253 	    LispMark(object->data.lambda.data);
2254 	    object = object->data.lambda.code;
2402 	    if (OPAQUEP(object->data.lambda.name))
2403 		object->data.lambda.name->prot = 1;
2405 	    LispProt(object->data.lambda.data);
2406 	    object = object->data.lambda.code;
2931     fun->data.lambda.name = name;
2932     fun->data.lambda.code = code;
2933     fun->data.lambda.data = data;
4614     LispObj *lambda, *result;
4646 		lambda = atom->property->fun.function;
4651 		result = LispExecuteBytecode(lambda);
4656 		lambda = atom->property->fun.function;
4657 		macro = lambda->funtype == LispMacro;
4660 		lambda = lambda->data.lambda.code;
4664 		result = LispRunFunMac(function, lambda, macro, base);
4706 	    lambda = function->data.lambda.code;
4707 	    alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
4709 	    result = LispRunFunMac(function, lambda, 0, base);
4718 		    lambda = function->data.lambda.code;
4719 		    alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
4721 		    result = LispRunFunMac(NIL, lambda, 0, base);
4852 	 * destructuring and more lambda list keywords still missing.
4872     code = setf->data.lambda.code;
4873     store = setf->data.lambda.data;
4907     body = atom->property->fun.function->data.lambda.code;