From 756fdfb8ca1d99fa7973e7d2c1cb12c05f921b7e Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 3 Apr 1990 03:53:47 +0000 Subject: [PATCH] Added define-static-functions for two-arg-{and,ior,xor}. --- compiler/mips/arith.lisp | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/compiler/mips/arith.lisp b/compiler/mips/arith.lisp index a05483d32..2b60514fc 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) + -- GitLab