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

Lines Matching defs:builtin
75 Com_And(LispCom *com, LispBuiltin *builtin)
116 Com_Block(LispCom *com, LispBuiltin *builtin)
129 		    STRFUN(builtin), STROBJ(name));
141 Com_C_r(LispCom *com, LispBuiltin *builtin)
151     desc = STRFUN(builtin);
168 Com_Cond(LispCom *com, LispBuiltin *builtin)
210 Com_Cons(LispCom *com, LispBuiltin *builtin)
235 Com_Consp(LispCom *com, LispBuiltin *builtin)
240     ComPredicate(com, builtin, XBP_CONSP);
244 Com_Dolist(LispCom *com, LispBuiltin *builtin)
272 			STRFUN(builtin), STROBJ(CDR(init)));
387 Com_Eq(LispCom *com, LispBuiltin *builtin)
403     /* Just like preparing to call a builtin function */
409     /* Compare arguments and restore builtin stack */
410     name = STRFUN(builtin);
428 Com_Go(LispCom *com, LispBuiltin *builtin)
452 	LispDestroy("%s called not within a block", STRFUN(builtin));
461 Com_If(LispCom *com, LispBuiltin *builtin)
500 Com_Last(LispCom *com, LispBuiltin *builtin)
521 Com_Length(LispCom *com, LispBuiltin *builtin)
535 Com_Let(LispCom *com, LispBuiltin *builtin)
567 				STRFUN(builtin), STROBJ(symbol));
601 Com_Letx(LispCom *com, LispBuiltin *builtin)
633 				STRFUN(builtin), STROBJ(symbol));
665 Com_Listp(LispCom *com, LispBuiltin *builtin)
670     ComPredicate(com, builtin, XBP_LISTP);
674 Com_Loop(LispCom *com, LispBuiltin *builtin)
708 Com_Nthcdr(LispCom *com, LispBuiltin *builtin)
727 Com_Null(LispCom *com, LispBuiltin *builtin)
747 Com_Numberp(LispCom *com, LispBuiltin *builtin)
752     ComPredicate(com, builtin, XBP_NUMBERP);
756 Com_Or(LispCom *com, LispBuiltin *builtin)
796 Com_Progn(LispCom *com, LispBuiltin *builtin)
809 Com_Return(LispCom *com, LispBuiltin *builtin)
814     ComReturnFrom(com, builtin, 0);
818 Com_ReturnFrom(LispCom *com, LispBuiltin *builtin)
823     ComReturnFrom(com, builtin, 1);
827 Com_Rplac_(LispCom *com, LispBuiltin *builtin)
841     com_Bytecode(com, STRFUN(builtin)[5] == 'A' ? XBC_RPLACA : XBC_RPLACD);
846 Com_Setq(LispCom *com, LispBuiltin *builtin)
862 	    LispDestroy("%s: odd number of arguments", STRFUN(builtin));
875 Com_Tagbody(LispCom *com, LispBuiltin *builtin)
897 Com_Unless(LispCom *com, LispBuiltin *builtin)
922 Com_Until(LispCom *com, LispBuiltin *builtin)
957 Com_When(LispCom *com, LispBuiltin *builtin)
982 Com_While(LispCom *com, LispBuiltin *builtin)
1021 ComPredicate(LispCom *com, LispBuiltin *builtin, LispBytePredicate predicate)
1052 ComReturnFrom(LispCom *com, LispBuiltin *builtin, int from)
1083 	LispDestroy("%s: no visible %s block", STRFUN(builtin), STROBJ(name));
1303 	int eval, int builtin, int compile)
1308 	if (builtin)
1332 		    if (builtin)
1341 		    if (builtin)
1348 		    if (builtin)
1359 		if (builtin)
1368 	if (builtin)
1375     if (builtin) {
1376 	/* Load <value> as a constant in builtin stack */
1395 	int eval, int builtin, int compile)
1401     if (builtin) {
1436 	ComPush(com, symbols[i], CAR(values), eval, builtin, compile);
1437 	if (!builtin && !com->macro)
1465 	ComPush(com, symbols[i], CAR(values), eval, builtin, compile);
1466 	if (!builtin && !com->macro)
1469 	    ComPush(com, sforms[i], T, 0, builtin, compile);
1470 	    if (!builtin && !com->macro)
1475 	if (!builtin) {
1491 	    ComPush(com, sforms[i], NIL, 0, builtin, compile);
1492 	    if (!builtin && !com->macro)
1530 	    else if (!builtin &&
1560 	    if (!builtin && keys[i]) {
1593 		ComPush(com, symbols[i], val, eval, builtin, compile);
1595 		    ComPush(com, sforms[i], T, 0, builtin, compile);
1599 		if (!builtin) {
1610 		    ComPush(com, symbols[i], val, eval, builtin, compile);
1612 		    ComPush(com, sforms[i], NIL, 0, builtin, compile);
1614 	    if (!builtin && !com->macro) {
1632     if (!eval || !CONSP(values) || (compile && !builtin))
1633 	ComPush(com, alist->rest, values, eval, builtin, compile);
1648 	string = builtin ? ATOMID(name)->value : NULL;
1659 		/* If the builtin function changes the &REST parameters, must
1661 		ComPush(com, alist->rest, values, 0, builtin, compile);
1668 		    /* Save result in builtin stack */
1702 	    if (builtin)
1713     if (!builtin && !com->macro)
1725     if (!builtin && !compile) {
1740 	    ComPush(com, symbols[i], defaults[i], eval, builtin, compile);
1741 	    if (!builtin && !com->macro)
1751     if (builtin)
1765     LispBuiltin *builtin;
1776 		builtin = atom->property->fun.builtin;
1777 		compile = builtin->compile != NULL;
1781 		 *	o calling a builtin special form
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. */
1808 		    builtin->compile(com, builtin);
1810 		/* Else, generate opcodes to call builtin function */
1812 		    com_Call(com, alist->num_arguments, builtin);