Forked from
cmucl / cmucl
Source project has a limited visibility.
-
rtoy authored
(let ((s (make-two-way-stream (make-concatenated-stream) (make-broadcast-stream)))) (dotimes (i 10) (format s "Hello, i = ~a~%" i))) doesn't work. This is caused by TWO-WAY-MISC not handling the :CHARPOS and :LINE-LENGTH operations. Just call the appropriate versions for the output stream of the two-way stream.
rtoy authored(let ((s (make-two-way-stream (make-concatenated-stream) (make-broadcast-stream)))) (dotimes (i 10) (format s "Hello, i = ~a~%" i))) doesn't work. This is caused by TWO-WAY-MISC not handling the :CHARPOS and :LINE-LENGTH operations. Just call the appropriate versions for the output stream of the two-way stream.