[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
 Keywords:  streams   |  Parent Tickets:
----------------------+----------------------------
 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.

--
Ticket URL: <http://abcl.org/trac/ticket/408>
armedbear <http://abcl.org>
armedbear