Re: Synonym streams and column position

3 Apr 2016


      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

-- 
With best regards, Stas.