diff options
| -rw-r--r-- | hyperquirks.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
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)))) |