diff options
| -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 |