diff options
| -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 |