2 Apr
2016
2 Apr
'16
11:08 a.m.
(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.