diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index a05483d328bc7740a769c917f182a5bd856ad959..2b60514fc3fcdc3f71266568917b0f7f1f899178 100644 --- a/compiler/mips/arith.lisp +++ b/compiler/mips/arith.lisp @@ -321,3 +321,8 @@ (define-static-function two-arg-/= (x y) :translate /=) (define-static-function %negate (x) :translate %negate) + +(define-static-function two-arg-and (x y) :translate logand) +(define-static-function two-arg-ior (x y) :translate logior) +(define-static-function two-arg-xor (x y) :translate logxor) +