anchor.diff:  		(list (compile-ast
   		       (cleavir-ast:arg2-ast ast)
   		       (context (list temp2)
  -				(cleavir-mir:make-fixnum-=-instruction
  +				(cleavir-mir:make-fixnum-equal-instruction
   				 (list temp2 temp1)
   				 successors)))))))))
  
positive.code: 		(list (compile-ast
  		       (cleavir-ast:arg2-ast ast)
  		       (context (list temp2)
  				(cleavir-mir:make-fixnum-<-instruction
  				 (list temp1 temp2)
  				 successors)))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Compile a FIXNUM-<=-AST.
  
  (defmethod compile-ast ((ast cleavir-ast:fixnum---ast) context)
    (with-accessors ((results results)
  		   (successors successors))
        context
      (unless (and (null results)
  		 (= (length successors) 2))
        (error "Invalid context for FIXNUM-<=-AST."))
      (let ((temp1 (make-temp nil))
  	  (temp2 (make-temp nil)))
        (compile-ast
  
negative.code: 		(list (compile-ast
  		       (cleavir-ast:arg2-ast ast)
  		       (context (list temp2)
  				(cleavir-mir:make-fixnum-less-instruction
  				 (list temp2 temp1)
  				 successors)))))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Compile a FIXNUM-NOT-LESS-AST.
  
  (defmethod compile-ast ((ast cleavir-ast:fixnum-not-less-ast) context)
    (with-accessors ((results results)
  		   (successors successors))
        context
      (unless (and (null results)
  		 (= (length successors) 2))
        (error "Invalid context for FIXNUM-NOT-LESS-AST."))
      (let ((temp1 (make-temp nil))
  	  (temp2 (make-temp nil)))
        (compile-ast
  