Re: Synonym streams and column position

On Sat, Apr 2, 2016 at 2:08 PM, Stas Boukarev stassats@gmail.com wrote:

(let ((stream (make-synonym-stream '*standard-output*))) (write-char #\c stream) (system::stream-charpos stream))

prints

abcabc

(let ((stream (make-synonym-stream '*standard-output*))) (write-char #\c stream) (system::stream-charpos stream)) => 0

Just noticed that the first snippet came out wrong, it was supposed to be (let ((stream (make-synonym-stream '*standard-output*))) (write-string "abc" stream) (fresh-line stream) (write-string "abc" stream)) => abcabc