Synonym streams and column position

[Stas Boukarev]

(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

-- 
With best regards, Stas.