consumer generator type check

d3v3l0 · Jul 10, 2020 · 9882e08 · 9882e08
1 parent efe9a7d
commit 9882e08
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
@@ -668,6 +668,7 @@ A -- 4
                        `(destructuring-bind ,var-exp (next ,gen-var) ,@body)
                        `(let ((,var-exp (next ,gen-var))) ,@body))))
     `(let ((,gen-var ,gen))
+       (assert (typep ,gen-var 'gtwiwtg::generator!))
        (loop
           :while (has-next-p ,gen-var)
           :do