diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp
index 0491a880f71d22a9cc4004dd9618cf906cddecd5..4165506aaea9cfba16b47f00aafbe623ce466aad 100644
--- a/compiler/mips/arith.lisp
+++ b/compiler/mips/arith.lisp
@@ -304,9 +304,20 @@
     (nop)))
 
 
-(define-static-function two-arg-plus (x y) :translate +)
-(define-static-function two-arg-minus (x y) :translate -)
-(define-static-function two-arg-times (x y) :translate *)
-(define-static-function two-arg-divide (x y) :translate /)
+
+
+;;;; Static functions.
+
+(define-static-function two-arg-+ (x y) :translate +)
+(define-static-function two-arg-- (x y) :translate -)
+(define-static-function two-arg-* (x y) :translate *)
+(define-static-function two-arg-/ (x y) :translate /)
+
+(define-static-function two-arg-< (x y) :translate <)
+(define-static-function two-arg-<= (x y) :translate <=)
+(define-static-function two-arg-> (x y) :translate >)
+(define-static-function two-arg->= (x y) :translate >=)
+(define-static-function two-arg-= (x y) :translate =)
+(define-static-function two-arg-/= (x y) :translate /=)
 
 (define-static-function negate (x) :translate -)