aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--gtwiwtg.lisp2
1 files changed, 1 insertions, 1 deletions
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
index cb1626f..d9ae95d 100644
--- a/gtwiwtg.lisp
+++ b/gtwiwtg.lisp
@@ -569,7 +569,7 @@ Caveat:
stream, that stream will not be closed.
"
- (make-dirty source-generator)
+ (sully-when-clean (list source-generator))
(let ((qs (loop :for _ :below count :collect (make-queue)))
(stop-cells (loop :for _ :below count :collect (list nil))))
(loop