diff options
| author | Colin Okay <cbeok@protonmail.com> | 2020-07-10 09:39:56 -0500 |
|---|---|---|
| committer | Colin Okay <cbeok@protonmail.com> | 2020-07-10 09:39:56 -0500 |
| commit | b50c8d32438be5f84c45b585dc23ee88947b6c2a (patch) | |
| tree | 5275f463d30c9bbe297696aa8aba13185334ae86 | |
| parent | 2048bea0524d89d21bd050d7f9bee7fc5defac95 (diff) | |
tweak
| -rw-r--r-- | gtwiwtg.lisp | 2 |
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 |