anchor.diff:         (context (list temp1)
   		(list (compile-ast
   		       (cleavir-ast:arg2-ast ast)
  -		       (context (list temp2)
  -				(cleavir-ir:make-fixnum-less-instruction
  -				 (list temp2 temp1)
  -				 successors)
  -				(invocation context))))
  +		       (context
  +			(list temp2)
  +			(list (cleavir-ir:make-fixnum-less-instruction
  +			       (list temp2 temp1)
  +			       successors))
  +			(invocation context))))
   		(invocation context))))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:        (context (list temp1)
  		(list (compile-ast
  		       (cleavir-ast:arg2-ast ast)
  		       (context (list temp2)
  				(cleavir-ir:make-fixnum-not-greater-instruction
  				 (list temp1 temp2)
  				 successors)
  				(invocation context))))
  		(invocation context))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
negative.code:        (context (list temp1)
  		(list (compile-ast
  		       (cleavir-ast:arg2-ast ast)
  		       (context
  			(list temp2)
  			(list (cleavir-ir:make-fixnum-less-instruction
  			       (list temp1 temp2)
  			       successors))
  			(invocation context))))
  		(invocation context))))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  