Synonym streams and column position

Stas Boukarev stassats at gmail.com
Sat Apr 2 11:08:42 UTC 2016


(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.



More information about the armedbear-devel mailing list