Searched refs:tagbody (Results 1 - 3 of 3) sorted by relevance

/xsrc/external/mit/xedit/dist/lisp/
H A Dcompile.c282 * (tagbody
877 tagbody &rest body
1279 for (i = 0; i < com->block->tagbody.length; i++)
1280 if (label == com->block->tagbody.labels[i])
1284 if (com->block->tagbody.length >= com->block->tagbody.space) {
1285 com->block->tagbody.labels =
1286 LispRealloc(com->block->tagbody.labels,
1287 sizeof(LispObj*) * (com->block->tagbody.space + 8));
1290 com->block->tagbody
[all...]
H A Dbytecode.c105 /* If in tagbody, ignore anything that is not code */
107 com->level == com->tagbody)
206 } tagbody; member in struct:_CodeBlock
228 int tagbody; /* Inside a tagbody block? */ member in struct:_LispCom
1344 LispFree(block->tagbody.labels);
1345 LispFree(block->tagbody.codes);
1397 com->tagbody = com->level;
1405 com->tagbody = com->block->level;
2125 for (i = 0; i < block->tagbody
[all...]
/xsrc/external/mit/xedit/dist/lisp/modules/
H A Dlisp.lsp85 `(block nil (let ,init (tagbody ,@body))))
88 `(block nil (let* ,init (tagbody ,@body))))

Completed in 10 milliseconds