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

Lines Matching defs:reg1
2851     LispObj *reg1;
3067 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3068 	if (!CONSP(reg1))
3069 	    LispDestroy("RPLACA: %s is not a cons", STROBJ(reg1));
3070 	RPLACA(reg1, reg0);
3071 	reg0 = reg1;
3075 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3076 	if (!CONSP(reg1))
3077 	    LispDestroy("RPLACD: %s is not a cons", STROBJ(reg1));
3078 	RPLACD(reg1, reg0);
3079 	reg0 = reg1;
3168 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3169 	reg0 = XEQL(reg1, reg0);
3173 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3174 	reg0 = XEQUAL(reg1, reg0);
3178 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3179 	reg0 = XEQUALP(reg1, reg0);
3190 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3191 	if (CONSP(reg1)) {
3199 	    reg0 = reg1;
3200 	    for (reg0 = reg1, length = 0;
3204 	    for (length -= fixnum, reg0 = reg1; length > 0; length--)
3208 	    reg0 = reg1;
3212 	reg1 = lisp__data.stack.values[--lisp__data.stack.length];
3213 	if (!FIXNUMP(reg1) || (fixnum = FIXNUM_VALUE(reg1)) < 0)
3215 			STROBJ(reg1));
3596 	reg1 = constants[*stream++];
3597 	reg0 = CONS(reg0, reg1);
3613 	reg1 = CONS(reg0, NIL);
3615 	lisp__data.protect.objects[phead++] = reg1;
3617 	lisp__data.protect.objects[phead++] = reg1;
3622 	reg1 = lisp__data.protect.objects[phead - 2];
3623 	RPLACD(reg1, CONS(reg0, NIL));
3624 	 lisp__data.protect.objects[phead - 2] = CDR(reg1);
3635 	reg1 = constants[*stream++];
3636 	if (!STRUCTP(reg0) || reg0->data.struc.def != reg1) {
3637 	    char *name = ATOMID(CAR(reg1))->value;
3639 	    for (reg1 = CDR(reg1); offset; offset--)
3640 		reg1 = CDR(reg1);
3642 			name, ATOMID(CAR(reg1))->value, STROBJ(reg0), name);
3650 	reg1 = constants[*stream++];
3651 	reg0 = STRUCTP(reg0) && reg0->data.struc.def == reg1 ? T : NIL;