GBK broken?

[eugeneia]

I have the following test case that shows the GBK encoding to be broken:

echo "高怡雯" | iconv -t gbk -o /tmp/gao
# in Clozure CL
(let ((v (make-array 6 :element-type '(unsigned-byte 8))))
           (with-open-file (in "/tmp/gao"
                               :element-type '(unsigned-byte 8))
             (read-sequence v in)
             v))
→ #(184 223 226 249 246 169)
(babel:octets-to-string * :encoding :gbk)
→ "高恂霎"

[luismbo]

@levin108 can you take a look?