From 429cbbee6765bcfb1d0982d1e616abc54af578c3 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Sat, 11 Jul 2020 22:28:22 -0500
Subject: removed inessential slot

---
 gtwiwtg.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index a9460ec..fe60d53 100644
--- a/gtwiwtg.lisp
+++ b/gtwiwtg.lisp
@@ -60,7 +60,7 @@
 ;;; Generator Classes ;;; 
 
 (a-generator-class range-backed-generator! ()
-         (at 0) to (by 1) inclusive (comparator #'<))
+         (at 0) to (by 1) (comparator #'<))
 
 (defmethod has-next-p ((g range-backed-generator!))
   (with-slots (to comparator by at) g
@@ -162,7 +162,6 @@ If TO is NIL, then the generator produces an infinite sequence.
                         (if inclusive #'>= #'>))))
     (make-instance 'range-backed-generator!
                    :comparator comparator
-                   :inclusive inclusive
                    :at (- from by)
                    :to to
                    :by by)))
-- 
cgit v1.2.3