aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <cbeok@protonmail.com>2020-07-10 14:27:18 -0500
committerColin Okay <cbeok@protonmail.com>2020-07-10 14:27:18 -0500
commit9882e084874c5640feeac4390431a450c9edfeec (patch)
treeb80571829f1f0dd145067e0ab9085d6ef47a5fee
parentefe9a7d6f3670b1fa11a05d25ba6f79a917ec80d (diff)
consumer generator type check
-rw-r--r--gtwiwtg.lisp1
1 files changed, 1 insertions, 0 deletions
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index d9ae95d..3cf1871 100644
--- 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