Lines Matching defs:macro
1111 /* Need macro expansion, these are special abstract objects */
1178 if (atom && atom->key && !com->macro) {
1230 /* name->offset may have been changed in a macro expansion */
1315 /* If <com->macro> is set, it is expanding a macro, just add the local
1317 * when calling the interpreter to expand the macro. */
1318 else if (com->macro) {
1437 if (!builtin && !com->macro)
1466 if (!builtin && !com->macro)
1470 if (!builtin && !com->macro)
1483 if (!com->macro)
1492 if (!builtin && !com->macro)
1614 if (!builtin && !com->macro) {
1713 if (!builtin && !com->macro)
1732 if (!com->macro)
1741 if (!builtin && !com->macro)
1780 * o expanding a macro
1782 * o builtin function is a macro
1784 if (com->macro || compile || builtin->type == LispMacro)
1787 if (!com->macro && builtin->type == LispMacro) {
1789 * used as a builtin macro argument. */
1799 if (!compile && !com->macro)
1819 int macro;
1822 macro = lambda->funtype == LispMacro;
1824 /* If <macro> is set, expand macro */
1825 if (macro)
1871 /* Not yet defined function/macro. */
2174 /* If tried to jump out of the macro expansion block */
2176 LispDestroy("*** EVAL: bad jump in macro expansion");
2180 LispMessage("*** EVAL: aborting macro expansion");
2199 ++com->macro;
2203 --com->macro;
2216 ++com->macro;
2218 --com->macro;