diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-11 22:24:38 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-11 22:24:38 -0500 |
| commit | 30378724486559df0c9e497069d67fba46ca0709 (patch) | |
| tree | e302cf5678b41f8da688977dc8f373674b4c951f | |
| parent | 9882e084874c5640feeac4390431a450c9edfeec (diff) | |
extraneous slot in with-slots
| -rw-r--r-- | gtwiwtg.lisp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp index 3cf1871..a9460ec 100644 --- a/gtwiwtg.lisp +++ b/gtwiwtg.lisp @@ -63,7 +63,7 @@ (at 0) to (by 1) inclusive (comparator #'<)) (defmethod has-next-p ((g range-backed-generator!)) - (with-slots (to current comparator by at) g + (with-slots (to comparator by at) g (or (not to) (funcall comparator (+ by at) |