1 files changed, 13 insertions, 0 deletions
diff --git a/arith.c b/arith.c
index b1ae1677..a49fdf0c 100644
--- a/arith.c
+++ b/arith.c
@@ -1803,6 +1803,19 @@ bad3:
   uw_throwf(error_s, lit("ashift: non-integral operand ~s"), a, nao);
 }
 
+val maskv(val bits)
+{
+  val accum = zero;
+
+  for (; bits; bits = cdr(bits)) {
+    val num = car(bits);
+    val mask = ash(one, num);
+    accum = logior(accum, mask);
+  }
+
+  return accum;
+}
+
 void arith_init(void)
 {
   mp_init(&NUM_MAX_MP);