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