Synonym streams and column position

[Stas Boukarev]

On Sat, Apr 2, 2016 at 2:08 PM, Stas Boukarev <stassats at 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

-- 
With best regards, Stas.