Comment 7 for bug 295334

On Fri, 2008-11-07 at 22:11 -0500, Abdulaziz Ghuloum wrote:
> In revision 1663, I get the following. Does it look right now?
>
> > (define bv
> #vu8(10 159 101 118 111 108 117 116 105 111 110 58 108 105
> 115 116 95 115 99 114 111 108 108 95 112 111 115 105
> 116 105 111 110 141 55 52 50 56 56 46 48 48 48 48 48 48
> 151 101 118 111 108 117 116 105 111 110 58 115 101 108
> 101 99 116 101 100 95 117 105 100 140 56 102 69 86 90
> 85 85 66 57 51 53 128))
> > (symbol->string (read (open-bytevector-input-port bv (native-
> transcoder))))
> "�evolution:list_scroll_position�74288.000000�evolution:selected_u
> id�8fEVZUUB935�"

I think that's right, because with r1661 still:

> (bytevector->string bv (native-transcoder))
"\n�evolution:list_scroll_position�74288.000000�evolution:selected_uid�8fEVZUUB935�"
> (read (open-string-input-port (bytevector->string bv (native-transcoder))))
�evolution:list_scroll_position�74288.000000�evolution:selected_uid�8fEVZUUB935�
> (symbol->string (read (open-bytevector-input-port bv (native-transcoder))))
Unhandled exception
 Condition components:
   1. &assertion
   2. &who: list->string
   3. &message: "not a character"
   4. &irritants: (#!eof)
>