diff options
| -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) |