diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-10 14:27:18 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-10 14:27:18 -0500 |
| commit | 9882e084874c5640feeac4390431a450c9edfeec (patch) | |
| tree | b80571829f1f0dd145067e0ab9085d6ef47a5fee | |
| parent | efe9a7d6f3670b1fa11a05d25ba6f79a917ec80d (diff) | |
consumer generator type check
| -rw-r--r-- | gtwiwtg.lisp | 1 |
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 |