From 30378724486559df0c9e497069d67fba46ca0709 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Sat, 11 Jul 2020 22:24:38 -0500 Subject: extraneous slot in with-slots --- gtwiwtg.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gtwiwtg.lisp') 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) -- cgit v1.2.3