SYSTEM::STREAM-CHARPOS and CL:FRESH-LINE problems with SYNONYM-STREAM

[Evenson Not Org]

Stas reports in <​http://article.gmane.org/gmane.lisp.armedbear.devel/3588>:
This does not seem to emit a newline:

(let ((stream (make-synonym-stream '*standard-output*)))
  (write-string "abc" stream)
  (fresh-line stream)
  (write-string "abc" stream))

This does not seem to return the correct character position:

(let ((stream (make-synonym-stream '*standard-output*)))
  (write-char #\c stream)
  (system::stream-charpos stream))

as it returns

=> 0

whereas the output should be advanced by one.

[Evenson Not Org]

Ticket retargeted after milestone closed

[Evenson Not Org]

Ticket retargeted after milestone closed