aboutsummaryrefslogtreecommitdiffhomepage
path: root/gtwiwtg.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'gtwiwtg.lisp')
-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)))