1 files changed, 12 insertions, 0 deletions
diff --git a/lib.c b/lib.c
index 2b209b77..afb134b8 100644
--- a/lib.c
+++ b/lib.c
@@ -727,6 +727,18 @@ val nappend2(val list1, val list2)
   return out;
 }
 
+val nconcv(val lists)
+{
+  list_collect_decl (out, ptail);
+
+  for (; lists; lists = cdr(lists)) {
+    val item = car(lists);
+    ptail = list_collect_nconc(ptail, item);
+  }
+
+  return out;
+}
+
 val sub_list(val list, val from, val to)
 {
   val len = nil;