#408: SYSTEM::STREAM-CHARPOS does not return correct column for stream ---------------------------+----------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.4.0 Component: (A)MOP | Version: 1.4.0-dev Resolution: | Keywords: streams Parent Tickets: | ---------------------------+----------------------- Description changed by mevenson: Old description:

Stas reports in <http://article.gmane.org/gmane.lisp.armedbear.devel/3588>:

{{{ (let ((stream (make-synonym-stream '*standard-output*))) (write-char #\c stream) (system::stream-charpos stream)) }}}} Returns {{{ => 0 }}} whereas the output should be advanced by one.

New description: 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. -- -- Ticket URL: <http://abcl.org/trac/ticket/408#comment:1> armedbear <http://abcl.org> armedbear

#408: SYSTEM::STREAM-CHARPOS and CL:FRESH-LINE problems with SYNONYM-STREAM ---------------------------+----------------------- Reporter: mevenson | Owner: Type: defect | Status: new Priority: major | Milestone: 1.4.0 Component: (A)MOP | Version: 1.4.0-dev Resolution: | Keywords: streams Parent Tickets: | ---------------------------+----------------------- -- Ticket URL: <http://abcl.org/trac/ticket/408#comment:3> armedbear <http://abcl.org> armedbear