1 files changed, 14 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 5737d48e..d354ce6e 100644
--- a/lib.c
+++ b/lib.c
@@ -1269,6 +1269,20 @@ val lev(val first, val rest)
   return t;
 }
 
+val numeqv(val first, val rest)
+{
+  val iter;
+
+  for (iter = rest; iter; iter = cdr(iter)) {
+    val elem = car(iter);
+    if (!numeq(first, elem))
+      return nil;
+    first = elem;
+  }
+
+  return t;
+}
+
 val max2(val anum, val bnum)
 {
   return if3(gt(anum, bnum), anum, bnum);