1.1--- a/lisp/std/stream.lisp	Mon Sep 23 19:20:00 2024 -0400
     1.2+++ b/lisp/std/stream.lisp	Mon Sep 23 21:14:10 2024 -0400
     1.3@@ -42,9 +42,9 @@
     1.4                      (error "~@<Could not read enough bytes from the input to fulfill ~
     1.5                           the :END ~S requirement in ~S.~:@>" 'copy-stream end)
     1.6                      (return)))
     1.7-               (print (incf input-position n))
     1.8+               (incf input-position n)
     1.9                (write-sequence buffer output :end n)
    1.10-               (print (incf output-position n))))
    1.11+               (incf output-position n)))
    1.12     (when finish-output
    1.13       (finish-output output))
    1.14     output-position))