From 30378724486559df0c9e497069d67fba46ca0709 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
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(-)

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