diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index 4165506aaea9cfba16b47f00aafbe623ce466aad..a05483d328bc7740a769c917f182a5bd856ad959 100644 --- a/compiler/mips/arith.lisp +++ b/compiler/mips/arith.lisp @@ -320,4 +320,4 @@ (define-static-function two-arg-= (x y) :translate =) (define-static-function two-arg-/= (x y) :translate /=) -(define-static-function negate (x) :translate -) +(define-static-function %negate (x) :translate %negate)