#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