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

Lines Matching defs:alist
196     {LispFunction, Lisp_Acons, "acons key datum alist"},
251     {LispFunction, Lisp_CopyAlist, "copy-alist list"},
443     {LispFunction, Lisp_Pairlis, "pairlis key data &optional alist"},
1461 	LispFreeArgList(atom->property->alist);
1476 	LispFreeArgList(atom->property->alist);
1477 	atom->property->alist = NULL;
1483 			    LispArgList *alist)
1494 	    LispFreeArgList(atom->property->alist);
1502     atom->property->alist = alist;
1512 	LispFreeArgList(atom->property->alist);
1513 	atom->property->alist = NULL;
1519 			   LispArgList *alist)
1530 	    LispFreeArgList(atom->property->alist);
1535     atom->property->alist = alist;
1545 	LispFreeArgList(atom->property->alist);
1546 	atom->property->alist = NULL;
1551 LispSetAtomSetfProperty(LispAtom *atom, LispObj *setf, LispArgList *alist)
1562     atom->property->salist = alist;
1726 LispUseArgList(LispArgList *alist)
1728     if (alist->normals.num_symbols)
1729 	LispMused(alist->normals.symbols);
1730     if (alist->optionals.num_symbols) {
1731 	LispMused(alist->optionals.symbols);
1732 	LispMused(alist->optionals.defaults);
1733 	LispMused(alist->optionals.sforms);
1735     if (alist->keys.num_symbols) {
1736 	LispMused(alist->keys.symbols);
1737 	LispMused(alist->keys.defaults);
1738 	LispMused(alist->keys.sforms);
1739 	LispMused(alist->keys.keys);
1741     if (alist->auxs.num_symbols) {
1742 	LispMused(alist->auxs.symbols);
1743 	LispMused(alist->auxs.initials);
1745     LispMused(alist);
1749 LispFreeArgList(LispArgList *alist)
1751     if (alist->normals.num_symbols)
1752 	LispFree(alist->normals.symbols);
1753     if (alist->optionals.num_symbols) {
1754 	LispFree(alist->optionals.symbols);
1755 	LispFree(alist->optionals.defaults);
1756 	LispFree(alist->optionals.sforms);
1758     if (alist->keys.num_symbols) {
1759 	LispFree(alist->keys.symbols);
1760 	LispFree(alist->keys.defaults);
1761 	LispFree(alist->keys.sforms);
1762 	LispFree(alist->keys.keys);
1764     if (alist->auxs.num_symbols) {
1765 	LispFree(alist->auxs.symbols);
1766 	LispFree(alist->auxs.initials);
1768     LispFree(alist);
1790 LispListProtectedArguments(LispArgList *alist)
1797     for (i = 0; i < alist->optionals.num_symbols; i++) {
1798 	if ((obj = LispCheckNeedProtect(alist->optionals.defaults[i])) != NULL) {
1810     for (i = 0; i < alist->keys.num_symbols; i++) {
1811 	if ((obj = LispCheckNeedProtect(alist->keys.defaults[i])) != NULL) {
1823     for (i = 0; i < alist->auxs.num_symbols; i++) {
1824 	if ((obj = LispCheckNeedProtect(alist->auxs.initials[i])) != NULL) {
1860     LispArgList *alist;
1869     alist = LispCalloc(1, sizeof(LispArgList));
1874 	alist->description = GETATOMID("")->value;
1876 	return (alist);
1896 		count = alist->auxs.num_symbols;
1897 		REALLOC_OBJECTS(alist->auxs.symbols, count + 1);
1898 		REALLOC_OBJECTS(alist->auxs.initials, count + 1);
1899 		alist->auxs.symbols[count] = CAR(spec);
1900 		alist->auxs.initials[count] = defval;
1901 		++alist->auxs.num_symbols;
1904 		++alist->num_arguments;
1956 		count = alist->keys.num_symbols;
1957 		REALLOC_OBJECTS(alist->keys.keys, count + 1);
1958 		REALLOC_OBJECTS(alist->keys.defaults, count + 1);
1959 		REALLOC_OBJECTS(alist->keys.sforms, count + 1);
1960 		REALLOC_OBJECTS(alist->keys.symbols, count + 1);
1961 		alist->keys.symbols[count] = spec;
1962 		alist->keys.defaults[count] = defval;
1963 		alist->keys.sforms[count] = sform;
1964 		alist->keys.keys[count] = akey;
1965 		++alist->keys.num_symbols;
1968 		alist->num_arguments += 1 + (sform != NULL);
1992 		count = alist->optionals.num_symbols;
1993 		REALLOC_OBJECTS(alist->optionals.symbols, count + 1);
1994 		REALLOC_OBJECTS(alist->optionals.defaults, count + 1);
1995 		REALLOC_OBJECTS(alist->optionals.sforms, count + 1);
1996 		alist->optionals.symbols[count] = spec;
1997 		alist->optionals.defaults[count] = defval;
1998 		alist->optionals.sforms[count] = sform;
1999 		++alist->optionals.num_symbols;
2002 		alist->num_arguments += 1 + (sform != NULL);
2072 	    /* Add argument to alist */
2074 		count = alist->auxs.num_symbols;
2075 		REALLOC_OBJECTS(alist->auxs.symbols, count + 1);
2076 		REALLOC_OBJECTS(alist->auxs.initials, count + 1);
2077 		alist->auxs.symbols[count] = spec;
2078 		alist->auxs.initials[count] = default_value;
2079 		++alist->auxs.num_symbols;
2082 		++alist->num_arguments;
2085 		alist->rest = spec;
2087 		++alist->num_arguments;
2095 		count = alist->keys.num_symbols;
2096 		REALLOC_OBJECTS(alist->keys.keys, count + 1);
2097 		REALLOC_OBJECTS(alist->keys.defaults, count + 1);
2098 		REALLOC_OBJECTS(alist->keys.sforms, count + 1);
2099 		REALLOC_OBJECTS(alist->keys.symbols, count + 1);
2100 		alist->keys.symbols[count] = spec;
2101 		alist->keys.defaults[count] = default_value;
2102 		alist->keys.sforms[count] = NULL;
2103 		alist->keys.keys[count] = NULL;
2104 		++alist->keys.num_symbols;
2107 		++alist->num_arguments;
2110 		count = alist->optionals.num_symbols;
2111 		REALLOC_OBJECTS(alist->optionals.symbols, count + 1);
2112 		REALLOC_OBJECTS(alist->optionals.defaults, count + 1);
2113 		REALLOC_OBJECTS(alist->optionals.sforms, count + 1);
2114 		alist->optionals.symbols[count] = spec;
2115 		alist->optionals.defaults[count] = default_value;
2116 		alist->optionals.sforms[count] = NULL;
2117 		++alist->optionals.num_symbols;
2120 		++alist->num_arguments;
2123 		count = alist->normals.num_symbols;
2124 		REALLOC_OBJECTS(alist->normals.symbols, count + 1);
2125 		alist->normals.symbols[count] = spec;
2126 		++alist->normals.num_symbols;
2129 		++alist->num_arguments;
2140     alist->description = LispGetAtomKey(description, 0)->value;
2142     return (alist);
2153     LispArgList *alist;
2184     alist = LispCheckArguments(builtin->type, CDR(list), atom->key->value, 1);
2186     LispSetAtomBuiltinProperty(atom, builtin, alist);
2187     LispUseArgList(alist);
4032 LispMakeEnvironment(LispArgList *alist, LispObj *values,
4054 	if (base + alist->num_arguments > lisp__data.stack.space) {
4057 	    while (base + alist->num_arguments > lisp__data.stack.space);
4062 	if (base + alist->num_arguments > lisp__data.env.space) {
4065 	    while (base + alist->num_arguments > lisp__data.env.space);
4069     desc = alist->description;
4093     count = alist->normals.num_symbols;
4111 	symbols = alist->normals.symbols;
4142     count = alist->optionals.num_symbols;
4143     defaults = alist->optionals.defaults;
4144     sforms = alist->optionals.sforms;
4160 	symbols = alist->optionals.symbols;
4237 	count = alist->keys.num_symbols;
4238 	symbols = alist->keys.symbols;
4239 	defaults = alist->keys.defaults;
4240 	sforms = alist->keys.sforms;
4305 	    keys = alist->keys.keys;
4410 	    sforms = alist->keys.sforms;
4411 	    keys = alist->keys.keys;
4414 	    for (i = 0; i < alist->keys.num_symbols; i++) {
4533 	    NORMAL_ARGUMENT(alist->rest, values);
4546 	    NORMAL_ARGUMENT(alist->rest, cons);
4562 	    NORMAL_ARGUMENT(alist->rest, cons);
4576     count = alist->auxs.num_symbols;
4577     defaults = alist->auxs.initials;
4578     symbols = alist->auxs.symbols;
4612     LispArgList *alist;
4632 		base = LispMakeEnvironment(atom->property->alist,
4647 		alist = atom->property->alist;
4649 		base = LispMakeEnvironment(alist, arguments, function, eval, 0);
4658 		alist = atom->property->alist;
4663 		base = LispMakeEnvironment(alist, arguments, function, eval, 0);
4686 		    base = LispMakeEnvironment(atom->property->alist,
4691 		    base = LispMakeEnvironment(atom->property->alist,
4707 	    alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
4708 	    base = LispMakeEnvironment(alist, arguments, function, eval, 0);
4719 		    alist = (LispArgList*)function->data.lambda.name->data.opaque.data;
4720 		    base = LispMakeEnvironment(alist, arguments, NIL, eval, 0);
4866 LispRunSetf(LispArgList *alist, LispObj *setf, LispObj *place, LispObj *value)
4879     base = LispMakeEnvironment(alist, place, Oexpand_setf_method, 0, 0);
4905     base = LispMakeEnvironment(atom->property->alist,