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

Lines Matching defs:alist
1393 ComCall(LispCom *com, LispArgList *alist,
1404 	if (base + alist->num_arguments > lisp__data.stack.space) {
1407 	    while (base + alist->num_arguments > lisp__data.stack.space);
1413     desc = alist->description;
1433     symbols = alist->normals.symbols;
1434     count = alist->normals.num_symbols;
1460     count = alist->optionals.num_symbols;
1461     symbols = alist->optionals.symbols;
1462     defaults = alist->optionals.defaults;
1463     sforms = alist->optionals.sforms;
1515 	count = alist->keys.num_symbols;
1516 	symbols = alist->keys.symbols;
1517 	defaults = alist->keys.defaults;
1518 	sforms = alist->keys.sforms;
1519 	keys = alist->keys.keys;
1525 		for (i = 0; i < alist->keys.num_symbols; i++)
1532 		for (i = 0; i < alist->keys.num_symbols; i++)
1539 		i = alist->keys.num_symbols;
1541 	    if (i == alist->keys.num_symbols) {
1557 	for (i = 0; i < alist->keys.num_symbols; i++) {
1633 	ComPush(com, alist->rest, values, eval, builtin, compile);
1661 		ComPush(com, alist->rest, values, 0, builtin, compile);
1705 		com_Let(com, alist->rest->data.atom);
1708 		ComAddVariable(com, alist->rest, values);
1714 	COM_VARIABLE_ARGUMENT(alist->rest->data.atom);
1722     count = alist->auxs.num_symbols;
1723     symbols = alist->auxs.symbols;
1724     defaults = alist->auxs.initials;
1764     LispArgList *alist;
1773 	    alist = atom->property->alist;
1800 		    CompileStackEnter(com, alist->num_arguments, 1);
1803 		base = ComCall(com, alist, function, arguments,
1812 		    com_Call(com, alist->num_arguments, builtin);
1813 		    CompileStackLeave(com, alist->num_arguments, 1);
1826 		    ComMacroCall(com, alist, function, lambda, arguments);
1831 			ComRecursiveCall(com, alist, function, arguments);
1834 			ComInlineCall(com, alist, function, arguments,
1860 		CompileStackEnter(com, alist->num_arguments, 0);
1863 		base = ComCall(com, alist, function, arguments, 1, 0, 0);
1864 		com_Bytecall(com, alist->num_arguments,
1866 		CompileStackLeave(com, alist->num_arguments, 0);
1880 	    alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
1881 	    ComInlineCall(com, alist, NIL, arguments, lambda->data.lambda.code);
1892 		    alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
1893 		    ComInlineCall(com, alist, NIL, arguments, lambda->data.lambda.code);
2004 ComRecursiveCall(LispCom *com, LispArgList *alist,
2015     base = ComCall(com, alist, name, arguments, 1, 0, 0);
2018     CompileStackEnter(com, alist->num_arguments, 0);
2022     com_Bind(com, alist->num_arguments);
2023     com->block->bind += alist->num_arguments;
2026     com_BytecodeChar(com, XBC_LETREC, alist->num_arguments);
2030     com_Unbind(com, alist->num_arguments);
2031     com->block->bind -= alist->num_arguments;
2035     CompileStackLeave(com, alist->num_arguments, 0);
2044 ComInlineCall(LispCom *com, LispArgList *alist,
2057     base = ComCall(com, alist, name, arguments, 1, 0, 0);
2060     CompileStackEnter(com, alist->num_arguments, 0);
2063     com_Bind(com, alist->num_arguments);
2064     com->block->bind += alist->num_arguments;
2070     com_Unbind(com, alist->num_arguments);
2071     com->block->bind -= alist->num_arguments;
2074     CompileStackLeave(com, alist->num_arguments, 0);
2193 ComMacroCall(LispCom *com, LispArgList *alist,
2200     base = ComCall(com, alist, name, arguments, 0, 0, 0);