Lines Matching defs:reg0
2848 register LispObj *reg0;
2965 reg0 = NIL;
3037 reg0 = reg0 == NIL ? T : NIL;
3041 reg0 = NIL;
3045 reg0 = T;
3050 if (reg0 != NIL) {
3051 if (!CONSP(reg0))
3052 LispDestroy("CAR: %s is not a list", STROBJ(reg0));
3053 reg0 = CAR(reg0);
3059 if (reg0 != NIL) {
3060 if (!CONSP(reg0))
3061 LispDestroy("CDR: %s is not a list", STROBJ(reg0));
3062 reg0 = CDR(reg0);
3070 RPLACA(reg1, reg0);
3071 reg0 = reg1;
3078 RPLACD(reg1, reg0);
3079 reg0 = reg1;
3083 CAR(cons) = reg0;
3089 CAR(cons) = reg0;
3096 CAR(cons) = reg0;
3105 CAR(cons) = reg0;
3115 CAR(cons) = reg0;
3126 CAR(cons) = reg0;
3138 CAR(cons) = reg0;
3151 CAR(cons) = reg0;
3164 reg0 = reg0 == lisp__data.stack.values[--lisp__data.stack.length] ? T : NIL;
3169 reg0 = XEQL(reg1, reg0);
3174 reg0 = XEQUAL(reg1, reg0);
3179 reg0 = XEQUALP(reg1, reg0);
3183 reg0 = FIXNUM(LispLength(reg0));
3192 if (reg0 != NIL) {
3193 if (!FIXNUMP(reg0) || (fixnum = FIXNUM_VALUE(reg0)) < 0)
3195 STROBJ(reg0));
3199 reg0 = reg1;
3200 for (reg0 = reg1, length = 0;
3201 CONSP(reg0);
3202 reg0 = CDR(reg0), length++)
3204 for (length -= fixnum, reg0 = reg1; length > 0; length--)
3205 reg0 = CDR(reg0);
3208 reg0 = reg1;
3216 if (reg0 != NIL) {
3217 if (!CONSP(reg0))
3218 LispDestroy("NTHCDR: %s is not a list", STROBJ(reg0));
3220 if (!CONSP(reg0))
3222 reg0 = CDR(reg0);
3229 if (reg0 != NIL) {
3230 if (!CONSP(reg0))
3231 LispDestroy("CAR: %s is not a list", STROBJ(reg0));
3232 reg0 = CAR(reg0);
3237 if (reg0 != NIL) {
3238 if (!CONSP(reg0))
3239 LispDestroy("CDR: %s is not a list", STROBJ(reg0));
3240 reg0 = CDR(reg0);
3246 lisp__data.stack.values[lisp__data.stack.length++] = reg0;
3281 lisp__data.env.values[lisp__data.env.length++] = reg0;
3289 lisp__data.env.values[lisp__data.env.length++] = reg0;
3324 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3329 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3334 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3339 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3340 if (reg0 != NIL) {
3341 if (!CONSP(reg0))
3342 LispDestroy("CAR: %s is not a list", STROBJ(reg0));
3343 reg0 = CAR(reg0);
3344 lisp__data.env.values[lisp__data.env.lex + offset] = reg0;
3350 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3351 if (reg0 != NIL) {
3352 if (!CONSP(reg0))
3353 LispDestroy("CDR: %s is not a list", STROBJ(reg0));
3354 reg0 = CDR(reg0);
3355 lisp__data.env.values[lisp__data.env.lex + offset] = reg0;
3361 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3366 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3371 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3372 lisp__data.stack.values[lisp__data.stack.length++] = reg0;
3377 reg0 = constants[*stream++];
3381 reg0 = constants[*stream++];
3385 reg0 = constants[*stream++];
3389 reg0 = constants[*stream++];
3390 lisp__data.stack.values[lisp__data.stack.length++] = reg0;
3394 reg0 = constants[*stream++];
3396 lisp__data.env.values[lisp__data.env.lex + offset] = reg0;
3402 if (reg0 != NIL) {
3403 if (!CONSP(reg0))
3404 LispDestroy("CAR: %s is not a list", STROBJ(reg0));
3405 reg0 = CAR(reg0);
3411 if (reg0 != NIL) {
3412 if (!CONSP(reg0))
3413 LispDestroy("CDR: %s is not a list", STROBJ(reg0));
3414 reg0 = CDR(reg0);
3420 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3425 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3430 reg0 = lisp__data.env.values[lisp__data.env.lex + offset];
3436 lisp__data.env.values[lisp__data.env.lex + offset] = reg0;
3452 lisp__data.env.values[atom->offset] = reg0;
3455 LispSetAtomObjectProperty(atom, reg0);
3457 SETVALUE(atom, reg0);
3465 LispSetAtomObjectProperty(atom, reg0);
3467 SETVALUE(atom, reg0);
3475 LispSetAtomObjectProperty(atom, reg0);
3489 reg0 = lisp__data.env.values[atom->offset]; \
3491 reg0 = atom->property->value; \
3492 if (reg0 == UNBOUND) \
3499 reg0 = atom->property->value; \
3519 lisp__data.stack.values[lisp__data.stack.length++] = reg0;
3529 reg0 = builtin->function(builtin);
3532 reg0 = builtin->function(builtin);
3544 reg0 = builtin->function(builtin);
3547 reg0 = builtin->function(builtin);
3552 lisp__data.env.values[lisp__data.env.lex + offset] = reg0;
3561 reg0 = ExecuteBytecode(codes[*stream++]);
3570 reg0 = LispFuncall(lambda, arguments, 1);
3578 if (reg0 != NIL)
3586 if (reg0 == NIL)
3595 reg0 = constants[*stream++];
3597 reg0 = CONS(reg0, reg1);
3603 lisp__data.protect.objects[phead++] = reg0;
3608 reg0 = CONS(lisp__data.protect.objects[--phead], reg0);
3613 reg1 = CONS(reg0, NIL);
3623 RPLACD(reg1, CONS(reg0, NIL));
3630 reg0 = lisp__data.protect.objects[phead + 1];
3636 if (!STRUCTP(reg0) || reg0->data.struc.def != reg1) {
3642 name, ATOMID(CAR(reg1))->value, STROBJ(reg0), name);
3644 for (reg0 = reg0->data.struc.fields; offset; offset--)
3645 reg0 = CDR(reg0);
3646 reg0 = CAR(reg0);
3651 reg0 = STRUCTP(reg0) && reg0->data.struc.def == reg1 ? T : NIL;
3661 reg0 = ExecuteBytecode(bytecode);
3668 return (reg0);
3678 reg0 = CONSP(reg0) ? T : NIL;
3682 reg0 = LISTP(reg0) ? T : NIL;
3686 reg0 = NUMBERP(reg0) ? T : NIL;
3695 return (reg0);
Indexes created Tue Jul 21 00:24:56 UTC 2026