From b50c8d32438be5f84c45b585dc23ee88947b6c2a Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Fri, 10 Jul 2020 09:39:56 -0500 Subject: tweak --- gtwiwtg.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gtwiwtg.lisp') 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 -- cgit v1.2.3