From 9882e084874c5640feeac4390431a450c9edfeec Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Fri, 10 Jul 2020 14:27:18 -0500
Subject: consumer generator type check

---
 gtwiwtg.lisp | 1 +
 1 file changed, 1 insertion(+)

(limited to 'gtwiwtg.lisp')

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
-- 
cgit v1.2.3