comparison src/bytecode.c @ 12527:ebaf016075f1

(Fbyte_code): For Beqlsign, if both args are ints, compare as ints.

12526:b1afb2a250a1

	case Beqlsign:
	  v2 = POP; v1 = TOP;
	  CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);
	  CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);
	  TOP = (XFLOATINT (v1) == XFLOATINT (v2)) ? Qt : Qnil;
	  break;

	case Bgtr:
	  v1 = POP;
	  TOP = Fgtr (TOP, v1);

12527:ebaf016075f1

	case Beqlsign:
	  v2 = POP; v1 = TOP;
	  CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0);
	  CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0);
#ifdef LISP_FLOAT_TYPE
	  if (FLOATP (num1) || FLOATP (num2))
	    {
	      double f1, f2;

	      f1 = (FLOATP (v1) ? XFLOAT (v1)->data : XINT (v1));
	      f2 = (FLOATP (v2) ? XFLOAT (v2)->data : XINT (v2));
	      TOP = (f1 == f2 ? Qt : Qnil);
	    }
	  else
#endif
	    TOP = (XINT (num1) == XINT (num2) ? Qt : Qnil);
	  break;

	case Bgtr:
	  v1 = POP;
	  TOP = Fgtr (TOP, v1);