From 92046b71330ecd7893881ad5614e4ea9d33da622 Mon Sep 17 00:00:00 2001
From: Ringo Wantanabe <flandre@chiru.no>
Date: Sun, 17 Feb 2019 03:31:16 +0000
Subject: [PATCH] dunno

---
 utils.lisp | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/utils.lisp b/utils.lisp
index 6813618..e3a9a74 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -411,6 +411,19 @@
 
 (defun val (v) v)
 
+(defun groupn (n list)
+  (let ((last nil)
+	(ret nil))
+    (loop for x in list
+	  for y from 0 below (length list)
+	  do (if (= 0 (mod y n))
+	       (push x last)
+	       (progn 
+		 (push x last)
+		 (setf ret (cons (reverse last) ret))
+		 (setf last nil))))
+    (reverse ret)))
+
 (defun sexpr-reader (stream char &key (func 'val))
   "Read next token only if S expression, else return as is"
   (if (char= (peek-char t stream t nil t) #\()