[armedbear] #408: SYSTEM::STREAM-CHARPOS does not return correct column for stream

[armedbear]

#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