Searched refs:sforms (Results 1 - 5 of 5) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/
H A Dcompile.c1399 LispObj **symbols, **defaults, **sforms; local in function:ComCall
1463 sforms = alist->optionals.sforms;
1468 if (sforms[i]) {
1469 ComPush(com, sforms[i], T, 0, builtin, compile);
1471 COM_VARIABLE_ARGUMENT(sforms[i]->data.atom);
1490 if (sforms[i]) {
1491 ComPush(com, sforms[i], NIL, 0, builtin, compile);
1493 COM_VARIABLE_ARGUMENT(sforms[i]->data.atom);
1518 sforms
[all...]
H A Dlisp.c1733 LispMused(alist->optionals.sforms);
1738 LispMused(alist->keys.sforms);
1756 LispFree(alist->optionals.sforms);
1761 LispFree(alist->keys.sforms);
1959 REALLOC_OBJECTS(alist->keys.sforms, count + 1);
1963 alist->keys.sforms[count] = sform;
1995 REALLOC_OBJECTS(alist->optionals.sforms, count + 1);
1998 alist->optionals.sforms[count] = sform;
2098 REALLOC_OBJECTS(alist->keys.sforms, count + 1);
2102 alist->keys.sforms[coun
4037 LispObj **symbols, **defaults, **sforms; local in function:LispMakeEnvironment
[all...]
H A Dprivate.h114 LispObj **sforms; /* T if variable specified, NIL otherwise */ member in struct:_LispOptionalArgs
122 LispObj **sforms; /* T if variable specified, NIL otherwise */ member in struct:_LispKeyArgs
H A Dwrite.c562 if (alist->optionals.sforms[i]) {
564 WRITE_ATOM(alist->optionals.sforms[i]);
589 if (alist->keys.sforms[i]) {
591 WRITE_ATOM(alist->keys.sforms[i]);
H A Dbytecode.c421 int i, sforms; local in function:Lisp_Compile
423 for (i = sforms = 0; i < alist->optionals.num_symbols; i++)
424 if (alist->optionals.sforms[i])
425 ++sforms;
428 i = sforms +
461 if (alist->keys.sforms[i]) {
773 if (alist->optionals.sforms[i]) {
777 id = alist->optionals.sforms[i]->data.atom->key;
802 if (alist->keys.sforms[i]) {
806 id = alist->keys.sforms[
[all...]

Completed in 12 milliseconds