aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorColin Okay <cbeok@protonmail.com>2020-07-10 09:39:56 -0500
committerColin Okay <cbeok@protonmail.com>2020-07-10 09:39:56 -0500
commitb50c8d32438be5f84c45b585dc23ee88947b6c2a (patch)
tree5275f463d30c9bbe297696aa8aba13185334ae86
parent2048bea0524d89d21bd050d7f9bee7fc5defac95 (diff)
tweak
-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