1 files changed, 6 insertions, 0 deletions
diff --git a/arith.c b/arith.c
index 1d63d1a9..61592a5e 100644
--- a/arith.c
+++ b/arith.c
@@ -1618,6 +1618,12 @@ bad:
   uw_throwf(error_s, lit("logxor: operation failed on ~s ~s"), a, b, nao);
 }
 
+val logtest(val a, val b)
+{
+  /* TODO: optimize */
+  return logand(a, b) == zero;
+}
+
 static val comp_trunc(val a, val bits)
 {
   cnum an, bn;