Lines Matching defs:builtin
91 building the argument list to a builtin function, or inline of recursive
150 LispBuiltin *builtin;
152 } builtin;
372 Lisp_Compile(LispBuiltin *builtin)
520 STRFUN(builtin), STROBJ(name));
532 Lisp_Disassemble(LispBuiltin *builtin)
561 xbuiltin = atom->property->fun.builtin;
578 xbuiltin = atom->property->fun.builtin;
582 STRFUN(builtin), STROBJ(function));
604 STRFUN(builtin), STROBJ(function));
692 sprintf(buffer, "%d element%s used in the builtin stack\n",
1596 com_Call(LispCom *com, unsigned char num_arguments, LispBuiltin *builtin)
1601 tree->data.builtin.num_arguments = num_arguments;
1602 tree->data.builtin.builtin = builtin;
1622 CompileStackEnter(LispCom *com, int count, int builtin)
1625 if (builtin) {
1639 CompileStackLeave(LispCom *com, int count, int builtin)
1642 if (builtin)
1989 next->data.builtin.offset =
1991 next->data.builtin.num_arguments =
1992 tree->data.builtin.num_arguments;
1993 next->data.builtin.builtin =
1994 tree->data.builtin.builtin;
2414 LinkBuildTableBuiltin(LispCom *com, LispBuiltin *builtin)
2416 if (BuildTablePointer(builtin, (void***)&com->table.builtins,
2459 LinkBuildTableBuiltin(com, tree->data.builtin.builtin);
2631 bytecode[offset++] = tree->data.builtin.num_arguments;
2632 i = FindIndex(tree->data.builtin.builtin,
2649 bytecode[offset++] = tree->data.builtin.num_arguments;
2650 i = FindIndex(tree->data.builtin.builtin,
2654 bytecode[offset++] = tree->data.builtin.offset;
2782 /* Build symbol, constant and builtin tables */
2852 LispBuiltin *builtin;
2978 /* builtin stack */
3227 /* Push to builtin stack */
3526 builtin = builtins[*stream++];
3527 if (builtin->multiple_values) {
3529 reg0 = builtin->function(builtin);
3532 reg0 = builtin->function(builtin);
3541 builtin = builtins[*stream++];
3542 if (builtin->multiple_values) {
3544 reg0 = builtin->function(builtin);
3547 reg0 = builtin->function(builtin);