From e55b0b4b9ac4f57cd3f1b73be0ee078b8100ab9e Mon Sep 17 00:00:00 2001
From: Colin Okay <okay@toyful.space>
Date: Mon, 8 Aug 2022 16:30:24 -0500
Subject: tiny [refactor]

---
 hyperquirks.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'hyperquirks.lisp')

diff --git a/hyperquirks.lisp b/hyperquirks.lisp
index b765e69..8f3a944 100644
--- a/hyperquirks.lisp
+++ b/hyperquirks.lisp
@@ -214,7 +214,7 @@ neatly divisible by N."
     for end = (+ start n)
     when (<= end len)
       collect (subseq xs start end)
-    when (and (< start len) (> end len))
+    when (< start len end)
       collect (nconc (subseq xs start)
                      (loop repeat (- end len) collect default))))
 
-- 
cgit v1.2.3