aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <cbeok@protonmail.com>2020-07-11 22:28:22 -0500
committerColin Okay <cbeok@protonmail.com>2020-07-11 22:28:22 -0500
commit429cbbee6765bcfb1d0982d1e616abc54af578c3 (patch)
tree76a4c0f33d08cb90b6f796b3b22d29a6e2be224a
parent053d23c8b57f19abd87585c7cf19533de52f42b6 (diff)
removed inessential slot
-rw-r--r--gtwiwtg.lisp3
1 files changed, 1 insertions, 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)))